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EDITO 

Si vous avez le 
choix, ne partez 
pas en vacances. 

N'apportez pas votre tribut au saccage du litto¬ 
ral. Evitez les joies illusoires d'un brusque 
dépaysement. Réprimez vos envies, sources de 
dépenses somptuaires. La drague est risquée, 
le soleil malsain, les plages polluées et l'am¬ 
biance estivale sujette à caution. 

Dédaignez à juste titre l'acquis du front popu¬ 
laire, ou plutôt, usez-en à rentabiliser votre 
matériel micro. 

Œuvrez à nous fournir dès la rentrée, de quoi 
alimenter nos chères rubriques... 



Jean-Claude Paulin, Tahiti. 


Consultez notre Logithèque 
Page n°66 
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Télématique tac toc ! 

MINITEL ET TÉLÉCHARGEMENT 


Reliée à tout ordinateur, une petite 
merveille nommée Minitel permet 
d'accéder à de nombreux serveurs et à 
leurs immenses banques de programmes. 
Bon voyage au pays du téléchargement... 


L e matériel de base est 
simple, vu qu'il ne néces¬ 
site qu'un ordinateur 
muni d’une prise RS 232, un 
minitel (lb) et le câble de liai¬ 
son entre les deux. Pour la par¬ 
tie logicielle, il convient de se 
procurer un soft permettant la 
communication entre l'ordina¬ 
teur et le serveur de votre 
choix. En effet, les différents 
serveurs n'utilisent pas tous le 
même protocole. Le matériel 
réuni, détaillons-en le fonc- 
tionnememt (Les personnes 
réfractaires aux beautés de la 
technique moderne, peuvent 
se référer directement à l'enca¬ 
dré en fin d'article). 

La RS232 

Elle est une méthode de trans¬ 
mission qui permet d'échanger 
des informations de façon 
fiable, avec seulement 3 fils qui 
sont: 

• Txd pour l'émission. 

• Rxd pour la réception. 

• Une masse (OV) pour servir 
de référence. 

Le standard RS 232 complet 
comporte une quinzaine de fils 
avec des timings précis qu'il 
serait trop long de décrire en 
détail. Dans le cas d'une liai¬ 
son ordinateur-minitel, les 
signaux autres que Txd, Rxd et 
Ov, sont fixés à certaines 
valeurs assurant le bon 
fonctionnement de l'ensemble. 
Une question se pose: com¬ 
ment faire transiter des octets 


comportant 8 bits par un seul 
fil? La solution consiste à les 
envoyer les uns après les 
autres, en série. C'est pourquoi 
la RS 232 est parfois nommée 
«prise série». Mais ce n'est pas 
le tout de transmettre, encore 
faut-il pouvoir effectuer un 
minimum de contrôles. C’est 
pourquoi la méthode finale¬ 
ment adoptée est la suivante : 

• 1 ou 2 bits de début. 

• Le nombre de bits de don¬ 
nées (7 pour de l'ASCII, 8 pour 
du binaire pur). 

• 1 bit de parité paire ou 
impaire. 

• 1,1.5 ou 2 bit de stop. 

Il në reste plus qu'à fixer une 
vitesse de transmission, en 
bauds ou bits/seconde. Les 
échanges entre l'ordinateur et 
le minitel se font à 1200 bauds. 
Heureusement, la quasi-totali¬ 
té des programmes de télé¬ 
chargement liés à un serveur 
particulier prennent en charge 
la configuration de la RS232 et 
il n'y a pas à s’en préoccuper. 
En considérant qu'il faut trans¬ 
mettre une dizaine de bits par 
octet, on obtient, à 1200 bauds, 
une vitesse de 120 oc¬ 
tets/seconde. Soit environ 7 
Ko/minute. 


Le minitel 

L'intérêt essentiel du minitel 
est d'inclure une carte 
MODEM qui permet de faire 
transiter des signaux informa¬ 
tiques par les lignes télépho¬ 
niques. En effet, les signaux 
carrés, générés par la RS 232 
de l'ordinateur, seraient com¬ 
plètement déformés à cause de 
la faible bande passante du 
réseau. Pendant un télécharge¬ 
ment, le minitel fait seulement 
office de transmetteur. Pour 
jouer ce rôle, il utilise le stan- 
dart V23, c'est-à-dire qu’il émet 
vers le serveur à 75 bauds et 
reçoit à 1200. En revanche, la 
liaison avec l'ordinateur se fait 
à une vitesse fixe de 1200 bds 
dans les deux sens. Les mini- 
tels lb ont un MODEM 
retoumable. Dans ce mode, ils 
peuvent émettre à 1200 bds et 
recevoir à 75. C'est très 
pratique quand on veut 
envoyer des programmes 
( upload ) au lieu de recevoir 
(download). 

Le câble 

Sa fonction est bien entendu 
de relier le minitel à l'ordina¬ 


teur (ou le contraire). Mais il 
joue aussi un autre rôle. Le 
voltage des signaux émis par 
une RS232 classique n'est pas 
compatible avec ce qu'attend 
la prise péri-informatique du 
minitel. On trouve donc, dans 
le capot de la prise RS232, un 
petit montage destiné à adap¬ 
ter les tension. Le branchement 
ne présente aucune difficulté si 
ce n'est que la prise minitel est 
parfois dissimulée par un 
petit volet. A noter qu'un tel 
câble permet également de 
s'envoyer des programmes 
entre copains. Il suffit que l'un 
des deux se transforme en ser¬ 
veur... Pour ce faire, il n'y a 
qu'à taper «fnct m r» sur un 
minitel lb qui retourne alors 
son MODEM. Ensuite, un bon 
programme de comm. et c'est 
tout... 

Le logiciel 

Comme d'habitude, le soft est 
une composante fondamenta¬ 
le. C’est lui qui établit la syn¬ 
chronisation du télécharge¬ 
ment entre le serveur et votre 
ordinateur. 11 veille également 
à son bon déroulement en, fai¬ 
sant des vérifications régu¬ 
lières. A cet effet, les données 
sont découpées en paquets 
dont chacun fait l'objet d'un 
contrôle. Le soft peut ainsi 
demander au serveur la 
réémission d'un bloc déficient. 
Le mode d'emploi est très 
simple, il suffit de mettre le 
soft en attente de données. A 
l'aide du minitel, on se promè- 


6 





ne dans le serveur jusqu’à être 
séduit par un logiciel quel¬ 
conque. On ordonne alors le 
téléchargement, le soft de 
communication le détecte, 
enregistre et sauve sur disque. 
C'est tout! 

Compactage 
et décompactage... 

...sont les deux mammelles du 
téléchargement. En effet, il est 
important de limiter au maxi¬ 
mum le temps de connexion et 
c'est ainsi que la plupart des 
programmes présents sur un 
serveur sont compactés. Par 
exemple, sur Micromag (le 
serveur), ils portent alors le 
suffixe «.ARC», du nom du 
célèbre programme d'archiva¬ 
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Comment télécharger? 

• Relier le câble de liaison entre la prise RS232 (prise série) de 
votre ordinateur et la prise péri-informatique du minitel. 

• Connectez-vous au serveur et mettez le programme de télé¬ 
chargement en attente. 

• Demandez au serveur d’envoyer le logiciel ou les données 
que vous désirez. Le téléchargement se fait automatiquement. 

• Si votre fichier porte le suffixe «.ARC», il faut le décompacter. 
Lancez alors le programme de décompactage fourni avec votre 
kit de téléchargement. 

• Voilà, c'est tout et ce logiciel n'a coûté que la communication. 


ge utilisé. Une fois que vous 
avez téléchargé un «.ARC», il 
faut lancer le programme de 
décompactage présent sur la 
disquette du kit de télécharge¬ 
ment. Après cette dernière 
étape, votre logithèque s'est 
enrichie d'un ou plusieurs 
nouveaux titres car un seul 
«.ARC» peut contenir diffé¬ 
rents fichiers. 

Conclusion 

Il y a encore des foules de 
choses à dire sur les activités 
liées au mariage ordinateur- 
minitel et ce sujet fera bientôt 
l'objet d'un dossier complet. 
Disons seulement que le télé¬ 
chargement et la possibilité 
pour tous de communiquer à 
distance via le minitel. 


ouvrent de nouveaux espaces 
d'applications à la micro-infor¬ 
matique, l’empêchant ainsi de 
se refermer sur elle-même 
(aïe!). Citons les messageries 
nationales et internationales. 


le travail à domicile, la possi¬ 
bilité de diffuser vos logi¬ 
ciels...etc. 

J-YT. 
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SYMBOL & SYMBOL AFTER 

LES COURS DU PROFESSEUR ALI GATOR 


Tout jeu Basic; pas trop indigent, fait 
appel aux commandes Symbol et Symbol 
after. Etes-vous certain d'en tirer le 
meilleur parti? 


D epuis des lustres, vous 
savez redéfinir un carac¬ 
tère avec Symbol, Le 
principe est simple: un numé¬ 
ro de caractère, 32 à 255, suivi 
de 8 nombres de 0 à 255, don¬ 
nent une nouvelle valeur aux 8 
octets réservés en ROM pour 
chaque caractère. Cet espace se 
situe, pour ceux que cela inté¬ 
resse, aux adresses &3800 à 
&3FFF. La ROM n'étant pas 
modifiable, l'opération a lieu 
en RAM. C'est là qu'intervient 
la commandé Symbol After. 

Symbol After 

En fait, il s’agit d'une barrière 
qui permet de réserver, en 
haut de la RAM, un espace 
suffisant pour la redéfinition 
des caractères. Celle-ci n'est 
pas nécessaire lorsque les 
caractères redéfinis ont une 
valeur supérieure à 240. 
Effectivement, entre &AB80 et 
&ABFF, figure une zone per¬ 
mettant le stockage et la redé¬ 
finition des caractères 240 à 
255. Une commande similaire, 
Memory, dresse elle aussi une 
barrière entre l'espace réservé 
au basic et celui dédié aux rou- 
tines binaires. Il y parfois 
conflit entre ces deux com¬ 
mandes. Nous verrons plus 
loin comment y remédier. 
Maintenant, faites en direct: 

PRINT HIMEM 

Suivant les configurations de 
CPC et des extensions utili¬ 
sées, vous allez obtenir une 
valeur que nous appellerons 
«A». Si vous faites : 


SYMBOL AFTER 240 : PRINT 
HIMEM 

La valeur obtenue sera iden¬ 
tique à là précédente. Tout 
simplement parce que l'espacé 
nécessaire pour ces 16 carac¬ 
tères est déjà réservé dès l'ini¬ 
tialisation dé l'ordinateur. 
Espace qui peut être récupéré 
de là façon suivante. 

SYMBOL AFTER 255 : PRINT 
HIMEM 

La valeur obtenue «B» est 
supérieure à «A» de 8 x 16=128 
octets. Ce n'est pas grand 
chose, mais cela peut toujours 
servir. Maintenant, faisons : 

SYMBOL AFTER 40 : PRINT 
HIMEM 

La valeur obtenue «C»; est 
inférieure à «A» de 8 x 
200=1600. 1600 octets néces¬ 
saires pour modifier 200 carac¬ 
tères. Symbol After sert de bar¬ 
rière mais aussi de recopié de 
la ROM vers la RAM du jeu de 
caractères. Pour vous en 
convaincre; tapez les lignes 
suivantes: 

10 SYMBOL AFTER 32 : 
X=HIMEM+1 : MODE 2 
20 CLS : FOR H=1 TO 8 : 
PRINT BIN$(PEEK(X), 8) 

30 X=X+1: N EXT: CALL 


&BB18 : GOTO 20 

Apparaissent alors un à un 
tous les caractères dans leur 
représentation binaire. A partir 
dë là, toutes les manipulations 
sont possibles: lettres sens des¬ 
sus dessous, tronquées, inver¬ 
sées, én italiques, etc. A vous 
de faire preuve d'imagination. 
Si vous en manquez, essayez 
les trois petits programmes de 
nôtre exemple. 

Improper Argument 

Ceux d'entre vous qui tapent 
régulièrement des listings 
n'ont sûrement pas échappé à 
l'Improper Argument qui 
apparaît parfois sur la ligne 
contenant l'instruction Symbol 
After. Cette ligne, qui en elle- 
même ne comporte aucune 
erreur, vient d'entrer en conflit 
avec une commande Memory 
rencontrée dans le listing. Pour 
comprendre le phénomène, 
tapez lés lignes suivantes. 

10 MEMORY &8000 
20 SYMBOL AFTER 200 
30 PRINT "BONJOUR" : END 

Quoique l'on fasse, le 
«Bonjour» de la ligne 30 ne 
s'affichera pas, le programme 
renvoyant un têtu Improper 
Argument en ligne 20. Memory 
et Symbol After sont deux bar¬ 


rières, mais le système n’admet 
pas que le Memory soit défini 
avant le Symbol after. Il aurait 
fallu écrire : 

10 SYMBOL AFTER 200 
20 MEMORY &8000 
30 PRINT "BONJOUR" : END 

Dans ce cas, RUN affichera 
correctement la message, mais 
faites un second RUN. 
Coucou, revoilou l'Improper 
Argument ! En fait, lors du pre¬ 
mier lancement, la barrière 
Memory placée en &8000 rèstè 
active jusqu'au Reset complet 
de Tordinâtèur. Dé cë fait, lé 
deuxième RUN recrée là situa¬ 
tion du premier programme. 
Alors que faire? Il existe deux 
solutions. 

• Premier cas: vous travaillez 
à la mise au point d'un listing 
dont vous n'êtes pas l'auteur. 
Le Memory reste actif tant 
qu'un Reset n'a pas lieu. Il en 
est de même pour Symbol 
After et les caractères redéfinis. 
Donc, lors des nombreux RUN 
d'essais, inutile de les faire 
relire par le programme. 
Rajouter, juste avant ce passa¬ 
ge, une petite ligne avec un 
GOTO pour enjamber l'obs¬ 
tacle. Dans notre exemple celà 
donnera: 5 GOTO 20. Ainsi, la 
mise au point pourra s'effec¬ 
tuer sans problème. Celle-ci 
terminée et avant d'effectuer la 
sauvegarde définitive, suppri¬ 
mez ce GOTO superflu. 

• La deuxième solution est 
encore plus simple. Il existe 
une routine système en &BB4E 
qui réinitialise tout ce qui a 
trait à la gestion des textes à 
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l'écran. Symbol et Symbol after 
rentrent dans cette catégorie. 
Ladite routine agit donc 
comme un Reset sélectif, 
exactement ce que nous 
recherchons. Ainsi la ligne : 5 
CALL &BB4E appliquée à nos 
deux exemples, fera dispa- 


Sur le point de créer un 
jeu, le mode 1 avec ses 
4 couleurs vous semble 
insuffisant. 

Il sera donc en mode 0. 
Or, les 20 caractères 
possibles par ligne 
vous posent problème. 
Comment faire? 

Désormais, la solution existe 
et s'appelle Alphà-color. Ce 
petit utilitaire permet en effet 
de créer à volonté un alphabet 
multicolore autorisant 40 
caractères sur une ligne en 
MODE 0. J'avoue, que l'idée 
est due à l'équipe Black 
System qui, dans chacun de ses 
jeux, utilise un tel procédé. J'ài 
donc conçu un programme 
basic générant un fichier binai¬ 
re relogeable et utilisable par 
tout-un-chacun, même sans 
connaissance de l'assembleur. 

Caractères redéfinis 

Tous les chiffres, quelques 
signes de ponctuation et l'al¬ 
phabet sont redéfinis deux par 
deux dans un caractère. Rien 
ne vous oblige à être d'accord 
avec mon style de redéfinition. 
Lorsque vous maîtriserez cor¬ 
rectement le logiciel, modifiez 
à votre guise le dessin des 
lettres. Car il faut bien 
l'avouer, certaines comme le 
N, le M ou le W peuvent prê¬ 
ter à confusion. 


raître tous nos problèmes 
d 'Improper Argument. 

Petite restriction: CALL 
&BB4E positionne le curseur 
en LOCATE 1,1. En début de 
listing, ceci ne devrait pas por¬ 
ter à conséquences. 


Variables de base 

Ligne 460 : Memory &3FAF. 
Une petite routine de capture 
sera placée entre l’adresse 
&3FB0 et &3FFF. La zone com¬ 
prise entre &4000 et &A1E0 est 
réservée au stockage du fichier 
où bon vous semble. 

Ligne 470 : initialisation d'un 
DIM pour conserver le numé¬ 
ro des encres. 

Lignes 480 - 490 : mode trans¬ 
parent et mode XOR pour 
sous-programme de recherche 
des couleurs. 

La recherche des 
couleurs 

Il est bien évident que les cou¬ 
leurs de votre logiciel seront 
préalablement choisies. Ce 
sous-programme permet d'en 
rèproduire exactement la 
palette. A noter que je me suis 
contenté de reprendre un 
sous-programme déjà utilisé 
dans «Aux voleurs». Faites de 
même. 

Le questionnaire 

La sélection de votre palette de 
couleurs est la première ques¬ 
tion à laquelle répondre. 
Apparaît alors la liste des sty¬ 
los et les encres qui leur sont 
affectées. A vous d'en choisir 4 
pour rendre votre alphabet 
multicolore. L'usage m'a prou¬ 
vé que les mélanges qui en 
«jettent» sont toujours à base 


de dégradés. Essayez donc des 
combinaisons du genre (n° de 
couleur) 26,24,15,6 ou encore 
26, 16, 1, 2 sur fond noir. 
Résultats garantis, 

Reste maintenant à définir 
l'adresse de départ du fichier 
binaire qui va se créer. En fait, 
cela n'a que peut d'importance 
car il peut être relogé n’impor¬ 
te où. Il suffira de forcer 
l’adresse lors du chargement 
par un : LOAD "FICHIER", 
adresse désirée. 

Création du fichier 

Ligne 750 : affectation des cou¬ 
leurs. 

Lignes 760 - 770 : affichage des 
lettres redéfinies. 

Lignes 780 - 840 : coloration 
des lettres suivant les stylos 
choisis. 

Lignes 850 - 910 : implantation 
de la routine d'affichage et 
capture une à une de toutes les 
lettres. A ce stade du program¬ 
me, tout est déjà terminé. 

Le fichier 

Le fichier ainsi créé mérite 
quelques commentaires. 11 
commence à l'adresse que 
vous avez choisie par une peti¬ 
te routine d'affichage de 32 
octets. Celle-ci est calibrée 
pour des sprites de 2 octets sur 
8 lignes; b taille de nos lettres. 
Après la routine figure la 
représentation des lettres, le 
fichier total faisant 720 octets. 

J'attire votre attention sur le 
jeu de caractères disponibles. 
Vous disposez de tous les 
chiffres et de tout l'alphabet en 
majuscule. Ils suivent tous la 
progression logique telle qu'el¬ 
le est représentée dans la liste 
des codes ASCII. Mais entre 
chiffres et lettres, 7 caractères 
pour un embryon de ponctua¬ 
tion qui ne correspond pas 
tout à fait à la réalité. Ainsi, si 
le «:» est bien à sa place, le 
signe «<» à été remplacé par le 
point. Voici les équivalences. 


ECREATION : ALPHA-COLOR 


«;» idem. 

«<» remplacé par le point. 

«=» remplacé par la virgule. 
«>» remplacé par l'apostrophe. 
«?» idem. 

«à» remplacé par le point d'ex¬ 
clamation. 

Utilisation du fichier 

Elle est en fait donnée en 
exemple dans le logiciel. 
Etudiez avec attention les 
lignes 920 à 1000. 

Ligne 920 : fonction permet¬ 
tant de transformer l'équiva¬ 
lent d'un LOCATE X, Y en 
MODE 1, en une adresse écran 
exploitable par la routine d'af¬ 
fichage. 

Ligne 930 : data d'une phrase 
à afficher. Les deux premiers 
chiffres sont les données X, Y 
du LOCATE. 

Ligne 980 : la phrase est dans 
la variable A$ en majuscule. 
Chaque lettre est prise une à 
une et, dans SP, on calcule son 
numéro de code ASCII. 48 lui 
est retiré car le 0 est notre pre¬ 
mier caractère contenu dans le 
fichier. 

Ligne 990 : si le caractère 
n'existe pas dans le fichier, il 
est remplacé par un espace. Ce 
dernier, situé à la position 43, 
est le dernier caractère conte¬ 
nu dans le fichier. 

Ligne 1000 : affichage une à 
une des lettres. La variable 
ADD est l'adresse de départ 
du fichier fournie dans le 
questionnaire. La fonction FN 
po(ZX, ZY) définie en 920 
entre en action. DEPI = 
ADD+32. On pointe sur le 
début de la première lettre. Il 
suffit de lui additionner la 
valeur SP multipliée par 16 
pour pointer sur la lettre dési¬ 
rée. La première lettre s'af¬ 
fiche, un bouclage affiche 
toute la phrase. Avec l'espoir 
que ce petit utilitaire permette 
de donner un air «pro» à vos 
prochaines réalisations- 

Claude Le Moullec 
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10 REM ::: à 1’envers :::: [1059] 

20 MODE 1:SYMBOL AFTER 32:x=HIMEM [2804] 
30 FOR h=32 TO 255:FOR g=l TO 8 [1349] 

40 va(g)=PEEK(x+g):NEXT g:FOR g=8 [3814] 
TO 1 -5TEP 1- 

50 z=z+l:POKE x+z,va(g):NEXT:PRIN [2496] 
T CHR$(h); ' ' 

60 x-x+8 : z=0.:NEXT h :CALL &BB18 [2179] 

70 REM : : : demi caractère : : : : [513] . 

80 MODE 0 SYMBOL AFTER 48:x=HlMEM [2774] 
90 FOR h=48 TO 122:FOR g=l TO 8 [2330] 

100 b$=BIN$(PEEK(X+G),8) [969] 

110 a=VAL("&X"+MÏD$(B$,2,1)+MID$( [3189] 
B$ , 5 ,1)+MID$(B$,7,1)+"00000") 

115 POKE x+g,à [304] 

120 NEXT:PRINT CHR$(h); :x=x+8:NEX [2817] 
T h :CALL &BB18 

130 REM. : : : caractère nain : : : [583] 


140 MODE 0:SYMBOL AFTER 48:x=HIME [2774] 
M - 

150 FOR h=48 TO 122:FOR g=l TO 8 [2330] 
'160 va(g)=PEEK(x+g):NEXT:FOR g=l [2649] 
TO 8 

170 POKÉ (x+g), 0:NEXT [il86] 
180 POKE x+3,va(l):POKE x+4,va(3) [1552] 
:POKE x+5,va(4) 

185 POKE x+6,va(5):POKE x+7,va(7) [1825] 
190 PRINT- CHR$(h) ; : x=x+8 : NEXT h [1613] 


H 230 SYMBOL 205.0,0,0,0,34.0,34,4 
i 240 SYMBOL 206,0,0,0,0,0,34,34.4 
U 250 SYMBOL 207,34,37,69,1.2.0.2,0 
K 260 SYMBOL 208,39.39,37,37.39,5,3 
7,0 

L 270 SYMBOL 209.119,119,84,84,100, 
84,119,0 

H 280 SYMBOL 210,103,119,84,84,86,8 
4 i 119 

U 290 SYMBOL 211,119,119,69,68.100. 
69.71,0 

0 300 SYMBOL 212,87,82,82,82,114,82 
,87,0 

9. 310 SYMBOL 213,117,37,37,38,38,37 

, 101 , 0 . 

8 320 SYMBOL 214 ,'69,71.71,69,6? ,69 , 
117,0 - 

R. 330 SYMBOL 215,87.85,117,117,117, 
85,87,0 

C 340 SYMBOL 216,119,119,85,85,117, 
69.7i,2 

7 350 SYMBOL 217,119.119,84,84,103, 
81,87,0 

U 360 SYMBOL 218.117,117.37,37,37.3 
7.39,0 

J 370 SYMBOL 219,85.85,85,85,87.87, 
37,0 

380 SYMBOL 220,85,85,85,34,34,82, 
82,0 

Y' 390 SYMBOL 221,112,16,16,32,32,64 


MICRO MAG et 
ALI GATOR 


présentent 

ALPHA-COLOR 


REDEF ALPHABET 


10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
80 REM 
90 REM * 

100 REM 
110 REM 
120 REM 
130 REM 
140 REM 
150 SYMBOL AFTER 199 

ù 1^0 SYMBOL 200,119,119,85,85,118. 
85,8.7,0 

A 170 SYMBOL 201,118,119,69.69,69.6 

° 9,ll8,0 

C 180 SYMBOL 200,114,118,82,82,82,8 
2;119,0 

J> 190 SYMBOL 201,119,85.17,17.35,65 
,119,0 

C 200 SYMBOL 202,23,52,52,83,113,21 
.23,0 

p210 SYMBOL 203,119.81,65.114,82,8 
4,116.0 

A 220 SYMBOL 204,119,85,85,119,81,8 

J 1,119,0 


[1823] 

[419] 

[696] 

[1426] 

[419] 

[1423] 

[419] 

[1189] 

[419] 

[1823] 

[419] 

[1321] 

[419] 

[1823] 

[1457] 

[ 2021 ] 

[2313] 

[2104] 

[1611] 

[1978] 

[2086] 

[2550] 


.112,0 

V 400 SYMBOL 255;0,60,60,60,60,60,6 
+ 0 ; 0 : SYMBOL 254,126,66.66,66,66,66 
,66,126 
410 REM 

420 REM : : 

430 REM : VARIABLES DE BASE : 

440 REM : : 

450 REM ::::::::::::::::::::::: 

460 MEMORY &3FAF 

470 DIM Color(17):FOR H=0 TO 15:C 
OLOR(H)=H:NÈXT: INK 0,0:INK 1,24:M 
ODE 2 

480 xr$=CHR$(23)+CHR$(1):nr$=CHR$ 
(23)+CHR${0) 

490 tr$=CHR$(22)+CHR$(1):no$=CHR$ 
(22)+CHR$(0) 

500 REM 

510 REM : : 

520 REM : QUESTIONNAIRE : 

530 REM : : 

540 REM •: r: j : 

550 LOCÀTE 1,1:PRINT"PREMIERE CHO 
SE ; EDITER LA PALETTE DE COULEUR 
UTILISEE POUR VOTRE LOGICIEL." 
560 LOCATE 1,4:PRINT CHR$(242)+" 
et ”+CHR$(243)+" POUR LE NUMERO D 
E L’ENCRE." 

570 LOCATE 1.5.-PSINT CHR$<240)+" 
et ”+CHR$(241)+" POUR LE NUMERO D 
È LA COULEUR. 

580 LOCATE 1,6:PRINT "PUIS <ENTER 

> QUAND C'EST FINI_" 

590 LOCATE 28,8:PRINT "APPUYEZ SU 
R UNE TOUCHE SVP”:CALL &BB18 
600 GOSUB 1220 


[1259] 

[1823] 

[1384] 

[2196] 

[ 2202 ] 

[1798] 

[1809] 

[2210] 

[1852] 

[2153] 

[2471] 

[1992] 

[2466] 

[2248] 

[2314] 

[2042] 

[1935] 

[4779] 


[1736] 

[419] 

[2081] 

[ 419 ] 

[1736] 

[744] 

[3816] 


[3091] 

[1638] 

[1736] 

[419] 

[1361] 

[419] 

[1736] 

[5912] 


[4133] 


[5223] 


[3751] 

[3283] 

[871] 


10 
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PROGRAMMATION 

INITIATION 


610 PLOT 320,350:DRAW 320,16:FOR [3173] 
H=0 TO AFF:LOCATE 46.H+6 
620 PRlNT "STYLO NR ";:PRINT USIN [5040] 
G •'##";H; :PRINT " = ";:PRINT DSIN 
G "##";COLOR(H):NEXT 

630 LOCATE 1,1:PRINT"IL Y A 4 STY [9260] 
LOS POSSIBLES PODR CHAQUE LETTRE. 

LE CHOIX DOIT SE FAIRE EN ALLANT 
DUHAUT VERS LE BAS DE LA LETTRE.. 


640 FOR H=6 TO 9 

650 LOCATE 1,H:PRINT SPACE$(40):L 
OCATE 3,H :PRINT "TRAIT NR "+CHR$( 
24): H-5 ;:PRINT CHR$(24) + " AVEC LE 

Stylo nr : n 

660 X1=35:Y1=H:LG=2:G0SUB 1480:EC 
(H-5)=VAL(LIG$): IF EC(H-5)>AFF TH 
EN PRINT CHR$(7): GOTO 650 
670 NEXT H 

680 LOCATE 1,15 :PRINT"ADRESSE DE 
STOCKAGE DU FICHIER":LOCATE 1,16: 
PRINT"MINIMUM &4000 : MAXIMUM &A1 
E0 : &":X1=34:Y1=16:LG=4:G0SUB 14 
80 

690 A$=LIG$:ADD=VAL("&"+RIGHT$(A$ 
.2))+VAL("&"+LEFT$(A$.2))*256 
700 REM ::::::::::::::::::::::: 
710 REM : : 

720 REM : CREATION FICHIER : 
730 REM : : 

740 REM ::::::::::::::::::::::: 
750 MODE MO:FOR H=0 TO AFF:INK H, 
COLOR(H):NEXT 

•760 LOCATE 1,1:PEN l:FOR H=200 TO 
210 :PRINT CHR$(H);:NEXT 
770 LOCATE 1,2:PEN l:FOR H=211 TO 
221:PRINT CHR$(H);:NEXT - - 
780 IF MO=0 THEN' LG=400 ELSE LG=2 
00 

790 FOR H=0 TO LG STEP 2:FOR G=1 
TO 4 

800 IF TEST(H,401-(G*4))=1 THEN P 
LOT H,401-(G*4),EC(G) 

810 IF TEST(H,403-(G*4))=1 THEN P 
LOT H,403-(G*4),ËC(G) 

820 IF TEST(H,385-(G*4))=l THEN P 
LOT H,385-(G*4) ,EC(i3) 

830 IF ÏEST(H,387-(G*4))=i THEN P 
LOT H,387-(G*4),EC(G) 

840 NEXT G,H 

850 DATA dd,5e,00,dd,56,01,dd,6e, 
02,dd,66,03,06,08,C5,E5,06,02,7E, 

12.13.23.10, FA,El,CD,26,BC,Cl,10, 
EF.C9 

860 DATA dd,5e,00,dd,56,01,dd,6e, 
02,dd,66,03,06,08,C5,E5,06,02,IA, 

77.23.13.10, FA,El.CD.26,BC,Cl,10, 
EF.C9 

870 RESTORE 850:FOR H=&3FB0 TO &3 
FB0+31:READ A$:POKE H,VAL(”&"+A$) 
:NEXT 

880 RESTORE 860:FOR H=ADD TO ADD+ 
31:READ A$:POKE H,VAL("&”+A$):NËX 
T 

890 DEP=ADD+ 3 2 :depl=dep 

900 ecr=&C000: FOR h=l TO 22:CALL 


[804] 

[9870] 


[4308] 


[372] 

[5892] 


[3691] 

[1736] 

[419] 

[2209] 

[419] 

[1736] 

[2351] 

[3378] 

[3234] 

[1290] 

[2194] 

[1967] 

[4322] 

[2998] 

[3218] 

[389] 

[3690] 


[3583] 

[ 2101 ] 

[4068] 

[1544] 

[3113] 


&3FB0,ECR,DEP :ECR=ECR+2:DEP=DEP+1 
6:NEXT 

910 ecr=&C050:FOR h=l TO 22:CALL 
&3FB0,ECR,DEP :ECR=ECR+2:DEP=DEP+1 
: NEXT 

f 920 DEF FN PO(X,Y)=&C000+(Y-1)*80 
+(X-1)*2 

930 DATA 2,10,"C>EST TERMINE IL N 
E RESTE PLUS QU>A " 

940 DATA 5,12,"SAUVEGARDER LE FIC 
HIER ««<" 

950 DATA 7.14,"ENTER POUR LA SAU 
VEGARDE" 

960 DATA 7,16,"OU SPACE POUR RECO 
MMENCER" 

970 CLS:RÈSTORE 920:FOR H=1 TO 4: 
READ ZX,ZY,A$ 

980 A$=UPPER$(A$): FOR T=1 TO LEN( 
A$):SP=(ASC(MID$(A$,T,1) ) )-48 ' 
990 IF sp<0 OR sp>42 THEN sp=43 
1000 CALL ADD.FN PO<ZXrZY)+(T*2), 
DÉP1+(SP*16):NEXT T,H 
1010 A$=INKEY$: IF A$="" THEN 1010 
1020 IF A$=CHR$(13) THEN 1090 
1030 IF A$=" " THEN RUN 470 ELSE 
1010 

1040 REM : : : : : : : : : : : : : ^ : : : : : : : : : 

1050 REM : : 

1060 REM : SAUVEGARDE FICHIER : 

1070 REM : : 

1080 REM 

1090 MODE 2 : INK 1,24:PEN1 
1100 LOCATE 1,1:PRINT "DEBUT DÈ F 
ICHIER EN : PRINT HEX$(ADD) 

1110 LOCATE 1,2 :PRINT "LONGUEUR T 
OTALE DU FICHIER : 720 OCTETS” 
1120 LOCATE 1,3 :PRINT "STYLOS UTI 
LISES..:FOR H=1 TO 4:PRINT EC( 
H);:NEXT * ' 

1130 LOCATE 1,5:PRINT "NOM DE SAU 
VEGARDE : ” :Xl=2l:Yl=5:LG=12:GOSÜ 
B 1480 

1140 LOCATE 1,7:PRINT "UNE TOUCHE 

SVP_":CALL &BB18 ' - 

1150 SAVE ”I"+LIC$.B,ADD,720 
1160 LOCATE 1,8 :PRINT "SAUVEGARDE 
TERMINEE ..." ;CALL &BB18 : END 
1170 REM t: : U : 

1180 REM : : 

1190 REM : RECHERCHE COULEUR : 

1200 REM : : 

1210 REM ::::::::::::::::::::::: 

1220 MODE 0 :eff=20 :maxi=20:aff=15 
1230 PEN 0:FOR h=l TO eff:LOCATE 
h,1:PRINT CHR$(143):NEXT 
1240 FOR h=0 TO aff: INK H.COLOR(H 
):PEN H:LOCATE 5+h,l:PRINT CHR$(2 
55):NEXT:PEN 1:LOCATE 1,1:PRINT " 
0000" 

1250 PEN 1:LOCATE 5,1:PRINT tr$;C 
HR$(254):pex=5:pez=5 
1260 a$=INKEY$:IF a$="" THEN 1260 
1270 IF à$=CHR$(13) THEN 1410 
1280 IF a$=CHR$(243) AND pex<maxi 
THEN pex=pex+1 : GOTO 1330 
1290 IF a$=CHR$(242) AND pex>5 TH 


[4181] 


[585] 

[3357] 

[2333] 

[2062] 

[1569] 

[1492] 

[2706] 

[1232] 

[2380j 

[1470] 

[730] 

[1254] 

[1736] 

[419] 

[1448] 

[419] 

[1736] 

[1969] 

[3644] 

[3037] 

[3798] 


[2883] 


[3703] 

[2002] 

[3549] 

[1736] 

[419] 

[1718] 

[419] 

[1736] 

[2618] 

[2908] 

[7143] 


[2463] 

[1397] 

[730] 

[3193] 

[2225] 


il 
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PROGRAMMATION 

INITIATION 


EN pex=pex-1 : GOTO 1330 

1300 IF a$=CHR$(240) AND color(pe [2008] 
x-5)<26 THEN 1380 

1310 IF a$=CHR$(241) AND color(pe [879] 
x-5)>0 THEN 1400 

1320 PRINT CHR$(7):GOTO 1260 [1604] 

1330 EEN 0:LOCATE pez.l:PRINT CHR [3500] 
$(254):PEN 1: LOCATE pex.l:PRINT C 
HR$(254) 

1340 PEN 1 :pez=pex:LOCATE 1,1:PRI [3955] 
NT no$:col=color(pex-5) 

1350 IF pex-5<10 THEN LOCATE 1,1: [5182] 
PRINT "0"; :PRINT ÜSING "#";pex-5 
ELSE LOCATE 1,1:PRINT ÜSING ; 
pex-5 

1360 IF col<10 THEN LOCATE 3,1:PR [4970] 
INT "0"; :PRINT ÜSING "#”;col ELSE 
LOCATE 3,1:PRINT ÜSING ,, ## , ';col 
1370 LOCATE 1,1:PRINT tr$:GOTO 12 [1407] 
60 

1380 col=color(pex-5):col=col+l:c [3084] 
olor(pex-5)=col:INK pex-5,col 
1390 PEN pex-5:LOCATE pex.l:PRINT [2383] 
CHR$(255):GOTO 1340 

1400 col=color(pex-5):col=col-l:c [3000] 
olor(pex-5)=col: INK pex-5,col:GOT 
O 1390 


1410 PEN 0 : FOR h=l TO eff:LOCATE [2908] 


h,1:PRINT CHR$(143):NEXT 

1420 INK 0,0:INK 1,24:MODE 2:PEN [904] 

1 :RETURN 

1430 REM iî : [1736] 

1440 REM : : [419] 

1450 REM : COMMANDE INPUT : [497]. 

1460 REM : : [419] 

1470 REM [1736] 

1480 lig$="":LOCATE xl.yl:zr=134 [1664] 
1490 a$=INKEY$:zr=zr KOR 15:PRINT [3998] 
CHR$(zr) ;CHR$(8) : : IF a$=' ,n THEN 
1490 


1500 a$=UPPER$(a$): IF ASC(a$)=13 [9882] 

THEN 1520 ELSE IF (a$>"Z" AND ASC 
(a$)<>127) THEN 1490 ELSE IF ASC( 
a$) = 127 AND LEN (lig$)>0 THEN lig 
$=LEFT$(1ig$,LEN(lig$)-1):PRINT C 
HR$(8):” ";CHR$(8);CHR$(8); : GOTO 

1490 

1510 IF LEN(lig$)=lg THEN PRINT C [5963] 
HR$(7); :GOTO 1490 ELSE lig$=lig$+ 
a$:PRINT RIGHT$(lig$,1);:GOTO 149 
0 

1520 LOCATE xl.yl:PRINT CHR$(24)+ [3785] 
" "+lig$+ M "+CHR$(24) 

1530 RETÜRN [555] 












VERIFICATEURS V2 



L e saviez-vous? La pré¬ 
sence dans nos listings 
de numéros entre cro¬ 
chets, assuré la détec¬ 
tion d'éventuelles erreurs lors 
de la saisie d'un programme 
Basic. 

Tapez minutieusement et 
sauvegardez le listing vérifi¬ 
cateur relatif à votre machine 


(464, 664 ou 6128), conser- 
vez-le précieusement et lan- 
cez-le avant toute frappe ou 
vérification de listing; les indi¬ 
cations nécessaires sont 
incluses. 

Chaque somme affichée 
devra rigoureusement corres¬ 
pondre à celle figurant dans 
nos colonnes. 


Nota : les deux traits verti¬ 
caux présents en ligne 80 et 
90, correspondent à une 
barre verticale sur un clavier 
QWERTY, ou à un "Cf sur cla¬ 
vier AZERTY. 

Ces caractères - CHR$(124) - 
s'obtiennent par appui simul¬ 
tané sur SHIFT/traits verti¬ 
caux. 


10' REM Vérificateur 46-1 

20 MEMORY Î.A4FF 

30 FOR aX=î(A500 T0 S.A607 

40 READ bytet 

50 P0KE a7.,VAL(\V'+bytet) 

40 NEXT 

70 CLSiL0CATE 5,1 : PR I NT CHRÎ<24> 
" Vérificateur V.2 444 installe 
''CHRÎ(24)sPRINTiPRINT 1 'Chaque val 
idation affiche désormais une sc- 
mme de control e. "îPRIWT 
80 PRINT"!CHECK,2 i liste le pro 
gramme avec les somm 

es de contrôle."s PR INT:PRINT"! CH 
ECK, 8 s imprime le programme ave 
c les sommes de contre 

le."iPRINT:PRINT" ''CHRt(24}" 
Taper ou charger un programme. “ 
CHRt(24) 

90 CALL îcfiSOOi I ON 
100 NEW 
110 DATA 
120 DATA 
130 DATA 
140 DATA 
150 DATA 
140 DATA 
170 DATA 
180 DATA 
190 DATA 
200 DATA 
210"DATA 
220 DATA 
230 DATA 
240 DATA 
250 DATA 
240 DATA 
270 DATA 
280 DATA 
290 DATA 
300 DATA 
310 DATA 
320 DATA 
330 DATA 
•340 DATA 
350 DATA 
340 DATA 
370 DATA 
380 DATA 
390 DATA 
400 DATA 
410 DATA 
420 DATA 
430 DATA 


10 REM Vérificateur 444 

20 MEMORY 8.A4FF 

30 FOR aX=!(A5QQ T0 Î.A407 

40 READ bytet 

50 P0KE aï.VALCV+bytet) 

40 NEXT 

70 CLS:LQCATE 5,iï PRINT CHRt(24) 
" Vérificateur V.2 444 installe 
"CHRt(24 )îPR INT;PR INT"Chaque val 
idation affiche désormais une so 
mme de controle." :PRINT 
QO PRINT"!CHECK,2 ; liste le pro 
gramme avec les somm 

es de contrôle.“sPRINT;PRINT"ICH 
ECK,8 : imprime le programme ave 
c les sommes de contre 

le. 11 ; PR INT: PR INT" "CHRt (24)" 
Taper ou charger un programme. 11 
CHRt(24) 

90 CALL ï,A500 ; ! 0M 
100 NEW 
110 DATA 
120 DATA 
130 DATA 
140 DATA 
150 DATA 
140 DATA 
170 DATA 
180 DATA 
190 DATA 
200 DATA 
210 DATA 
220 DATA 
230 DATA 
240 DATA 
250 DATA 
240 DATA 
270 DATA 
280 DATA 
290 DATA 
300 DATA 
310 DATA 
320 DATA 
330 DATA 
340 DATA 
350 DATA 
340 DATA 
370 DATA 
330 DATA 
390 DATA 
400 DATA 
410 DATA 
420 DATA 
430 DATA 


10 REM Vérificateur 4129 

20 MEMORY !(A4FF 

30 FOR aï=!iA500 TO S.A407 

40 READ bytet 

50 POKE aX,VAL( U S<"fbytet) 

40 NEXT 

70 CLS ; LOCATE 4,1'.PRINT CHRt (24) 
" Vérificateur V.2 4128 installe 
"CHRt(24): PR INT:PR INT"Chaque va 
lidation affiche désormais une s 
omme de contro1e.":PR1NT 
80 PRINT" I CHECK,2 : liste lé pro 
gramme avec les somm 

es de contr ol ei'PRINT; PRINT 1 '! CH 
ECK,8 : imprime le programme ave 
c les sommes de contre 

le.": PR I HT : PR INT" "CHRt <24)" T 

aper ou charger un programme. "C 
HRÎ(24) 

90 CALL !(A500; ! ON 
100 NEW 
110 DATA 
120 DATA 
130 DATA 
140 DATA 
150 DATA 
140 DATA 
170 DATA 
100 DATA 
190 DATA 
200 DATA 
210 DATA 
220 DATA 
230 DATA 
240 DATA 
250 DATA 
240 DATA 
270 DATA 
280 DATA 
290 DATA 
300 DATA 
310 DATA 
320 DATA 
330 DATA 
340 DATA 
350 DATA 
340 DATA 
370 DATA 
380.DATA 
390 DATA 
400 DATA 
410 DATA 
420 DATA 
430 DATA 


21,09,a5,01,Gd,a5,c3,dl 
bc,00,00,00,00,18,a5,c3 
2a,a5,c3,2f,a5,c3,43,a5 
4f,ce,4f,44,c4,43,48,45 
4 3ic b,00,00,c f,9 8,a a , c 3 
a8,a5,21,27,a5,18,03,2I 
24,a5,28,04,cd 1 00,b9,c3 
04,Ud,11,3a,bd,01,03,00 
ed, b0, c 9,4f , cd, 00, b9, Od 
28,08,0d,20,ea,dd,7e,02 
18,04,7b,11,01,00,cd,a2 
ci,cd,a3,e7,e5,4e,23,44 
23,5e,23,54,el,73,bl ,c8 
cd,3c,c4,e5,09,e3,cd,43 
el,21 , a4,ac,cd,7a,a5,el 
18,e2,e5,cd,ba,a5,e3,cd 
9S,a5,cd,94,f2,e3,cd,f4 
a5,cd,4e,c3,el,7e,a7,c8 
cd,98,a5,cd,4e,c3,18,f5 
3a,24,ac,d4,08,47,7e,a7 
c8,cd,45,el,23,10,f7,c9 
cd,24,a5,f5,c5,d5,e5,cd 
ba,a5,cd,f6,a5,el,d1,c1 
fi,c9,eb,lb,af,47,47,4f 
2f ,32,23,a5,13,Sa,d4,30 
38,04 ,fe,0a,38,f4,1 a,13 
a7,c8,4f ,3a,23,a5,al ,fe 
20,28,f3,79,fe,22,20,07 
3a,23,a5,2f,32,23,a5,3a 
23,a5,a7,79,c4,8a,ff,4 f 
ad,07,4f,09,18,d8,3e,20 
c d , 5c , c 3,3e , 5b , c ri , 5c , c 3 


21,09,a5 
bc ,00,00 


18,e2,e5 
98,a5,cd 
a5,cd,9b 
cd , 98,a5 
3a,09,ac 
c8,cd,22 
cd ,24 ,a5 

f 1 '<:9jeb 

38 ^ 04 î fe 
a7,c3,4< 


44,c4,43,48,45 
00,cf,02,ac ,c3 
27,a5,18,03,21 
06,cd,00,b9,c3 
5b,bd,01,03,00 
4f,cd,00,b9,0d 
20,ea,dd,7e,02 
il ,01,00,cd,a9 
e8,e5,4e,23,46 
56,el,78,b 1 , c8 


58,f3 
r. 3, e 1 
c d , 9 b 
d6,08 


79, fe. 
2f,32. 
79,c4, 


e 3 , c d , f 6 
7e,a7,c3 


22,20,07 
ab J f f î 4f 


21,0 9,a 5,01,0 d,a 5,c 3 , d1 
bc , 00 ,.00,00,00,18, a5,c 3 
2a,a5,c3,2f,a5,c3,43,a5 
4f,ce, 4 f,46,c6,43,48,45 
43, cb, 00,00,cf,02,ac,c3 
aB,a5,2!,27,a5,18,03,21 
24,aS,2B,06,cd,00,b9,c3 
49,cb,11,5e,bd,01,03,00 
ed , bO ,c9,4f,cd,00,b9,0d 
28,08,0d,20,ea,dd,7e,02 
18,04,7b,11,01,00,cd,a6 
cl,cd,64,e8,e5,4e,23,46 
23,5e,23,56,el,78,bl ,c8 
cd,72,c4,e5,09,e3,cd,54 
e2,21,8a,ac,cd,7a,a5,el 
18,e2,e5,cd,ba,a5,e3,cd 
98,a5,cd,53,f3,e3,cd,f6 
a5,cd,98,c3,el,7e,a7,c8 
cd,98,a5,cd,98,c3,1B,f5 
3 a, 09-, ac,d6,0S,47,7e,a7 
c3,cd,ld,e2,23,10,f7,c9 
cd,24,a5,f5,c5,d5,e5,cd 
ba,a5,cd,f6,a5,el,d1,c1 
fl,c9,eb,lb,af,47,67,6f 
2f ,-32,23,a5,13,1a,d6,30 
38,04,fe,0a,38,f6,la,13 
a7,c8,4f,3a,23,a5,al,fe 
20,28,f 3,79,f e,22,20,07 
3a,23,a5,2f,32,23,a5,3a 
23,a5,a7,79,c4,ab,ff,4f 
ad,07,6f,09,18,dS,3e,20 
cd,a0,c3,3e,5b,cd,a0,c3 
cd,44,ef,3e,5d,c3,a0,c3 
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Vive la chasse ! 

DEATH'S TICKET 


L es munitions, en nombre 
limité, devront être utili¬ 
sées à bon escient. Le 
valeureux pilote pourra néan¬ 
moins se réapprovisionner en 
cours de jeu auprès de 
quelques rares containers. De 
plus, il rencontrera aussi peu 
fréquemment des types d'af¬ 
fûts capables de renforcer l'ef¬ 
ficité de son tir (double, triple, 
etc.). Les commandes sont 
classiques (J°y ! stick ou touches 
directionnelles + espace) et 
«ESC» permet l'abandon. 
Malgré la simplicité du scéna¬ 
rio, ce «shoot'em up» est remar¬ 
quablement animé. 

Sauvegarde 

Sauvez sous un nom de votre 
choix, le court listing Basic de 
chargement. Entrez ensuite par 


Aux commandes du redoutable «Monster 
vice », Kevin Juck se couvrit de gloire en 
affrontant les hordes impérialistes de la 
planète Zégon. 



Amsaisie V.2 en vous reportant 
à son mode d'emploi, les 
quatre listings de codes hexa¬ 
décimaux. 



Adr. déb. 

Long 

DE ATM 1 

&4000 

&401 

DFATH2 

&4800 

&2800 

DF ATI 13 

&8000 

&ED4 

DEATI-14 

&94E0 

&238 


La longueur est ici précisée à 
l'attention de ceux qui envisa¬ 
gent raisonnablement de mor¬ 
celer leur travail en plusieurs 
fichiers qui devront ultérieure¬ 
ment être réunis en quatre 
fichiers définitifs. 

Sébastien Royer 


1 • ..*********,**•*««»* [665 ] 

2 ' * * DEATH'S TICKET ** [700] 

3 ' ** (C) R.O.S.SOFT ** [2034] 

4 ' * by * [227] 

5 ' * Sebastien Royer * [1874] 

7 ' Spécial thanks to: [838] 

8 ' Robert.Vincent.Steph [1509] 

9 ' Nelly,Aude,Stéphanie [1848] 
,Severine 

10 ' and MARIE [384] 

11 OPENOUT"MARIE": MEMORY [3263] 
&FFF:CLOSEOUT 

12 LOAD"DE^THl".&1000 [1394] 

13 L0AD"DEATH2”.&1800 [1356] 

14 L0AD"DEATH3",&8000 [1092] 

15 LOAD"DEATH4".&94E0 [1495] 

16 CALL &8000 [453] 


4000:00 00 
4008:00 00 
4010:04 00 
4018:10 00 
.4020:08 08 
4028:00 00 
4030:04 00 
4038:CC 20 
4040:0C 88 


00 00 00 00 00 00:40 
00 00 00 00 00 00:48 
04 00 44 00 44 00:90 
00 00 10 00 00 00:B8 
88 20 00 00 00 00:90 
00 00 00 00 00 00:68 
04 00 4C 88 44 00:08 
10 00 10 00 00 00:04 
4C 00 4C 00 CC 88:D0 


4048:44 88 
4050:08 08 
4058:10 00 
4060:0C 00 
4068:CC 20 
4070:00 08 
4078:00 00 
4080:00 08 
4088:44 00 
4090:04 00 
4098:00 88 
40A0:00 00 
40A8:04 88 
40B0:00 00 
40B8:4C 88 
40C0:00 00 
40C8:00 00 
40D0:00 00 
40D8:4C 20 
40E0:00 00 
40E8:00 00 
40F0:00 08 
40F8:44 00 
4100:41 00 
4108:02 A8 
4110:41 00 
4118:54 00 
4120:41 00 
4128:02 00 
4130:41 00 


44 20 30 
08 88 00 
20 00 20 
08 00 4C 
00 20 10 
00 88 10 
00 00 00 
04 00 04 
10 00 00 
00 08 00 
00 20 10 
00 00 00 
44 88 20 
00 00 04 
10 00 10 
00 00 00 
00 08 00 
00 00 00 
00 00 00 
00 00 00 
04 00 10 
00 08 00 
88 00 20 
82 02 82 
A8 A8 54 
C3 00 01 
54 00 54 
82 82 00 
A8 00 FC 
82 02 00 


20 00 00 :D8 
88 44 00:EC 
88 20 20:B8 
88 88 88:68 
20 00 00:44 
00 00 00:30 
00 00 00:B8 
00 44 00:CC 
20 00 00:FC 
08 00 88:64 
00 00 00:B8 
00 08 44:38 
10 00 00:E8 
00 04 00:20 
00 00 00:D4 
00 00 00:00 
88 10 00 :C8 
00 00 00:10 
00 00 00:A4 
00 00 00:20 
00 00 00:84 
88 44 00 :6C 
00 20 00:94 
02 02 A8:F4 
00 00 00:D7 
00 01 00:E7 
00 00 00;4D 
02 01 00:43 
A8 00 00:3F 
02 01 00:53 


4138:00 02 
4140:82 00 
4148:00 A8 
4150:C3 82 
4158:00 02 
4160:41 00 
4168:02 A8 
4170:C3 82 
4178:00 A8 
4180:41 00 
4188:02 A8 
4190:41 00 
4198:00 A8 
41A0:00 00 
41A8:00 00 
41B0: 00 00 
41B8:00 00 
41C0:00 00 
41C8:88 00 
41D0:00 00 
41D8:0C 88 
41E0:00 00 
41E8:00 88 
41F0: 04 00 
41F8:10 00 
4200:04 00 
4208:20 20 
4210:04 00 
4218:88 20 
4220:0C 00 


A8 A8 54 
82 02 82 
00 A8 00 
82 00 02 
A8 A8 54 
82 02 82 
A8 A8 54 
00 82 00 
00 A8 V 00 
82 82 82 
02 A8 54 
82 82 82 
A8 A8 54 
00 00 04 
04 00 10 
00 00 04 
04 00 10 
00 08 04 
44 00 00 
00 00 00 
00 00 98 
08 00 04 
44 00 20 
08 08 00 
00 00 10 
4C 08 4C 
20 00 10 
08 08 08 
88 20 20 
08 08 08 


00 00 00:B9 
02 03 02 :4C 
A8 00 00:69 
00 01 00:EF 
00 00 00:D9 
00 03 00:0F 
00 00 00:37 
02 01 02:A3 
A8 00 00:99 
02 01 00 :2D 
00 00 00:65 
02 01 02 :4D 
00 00 00:65 
00 44 00:D1 
00 00 00:45 
00 44 00:E1 
00 20 00:35 
00 08 00:6D 
20 00 00 :1D 
00 00 00:11 
20 00 00:ED 
00 00 08 :8D 
00 00 00:A5 
88 44 00:79 
00 00 00:99 
88 88 88:EE 
20 00 00 :IA 
88 CC 88:BA 
20 00 00 :9A 
88 CC 00:92 
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4228:88 20 86 20 30 00 00 00:3À 
4230:04 00 08 08 08 00 88 00:8E 
4238:88 00 20 20 10 00 00 00:32 
4240:0C 00 08 88 08 88 88 20:D6 
4248:88 20 88 20 30 00 00 00:5A 
4250:0C 08 08 00 08 00 CC 00:82 
4258:88 00 20 00 30 20 00 00:32 
4260:04 00 08 08 08 00 CC 00:9A 
4268:88 00 20 00 20 00 00 00:32 
4270:04 00 08 08 08 00 88 88:0E 
4278:88 20 20 20 10 00 00 00:B2 
4280:08 08 08 88 08 88 CC 88:3E 
4288:88 20 88 20 20 20 00 00:0A 
4290:0C 08 04 00 44 00 44 00:2A 
4298:44 00 10 00 30 20 00 00:FE 
42A0:04 08 00 08 00 08 00 88:86 
42A8:00 88 20 20 10 00 00 00:2A 
42B0:08 08 08 88 08 88 CC 00:2E 
42B8:88 88 88 20 20 20 00 00:0A 
42C0:08 00 08 00 88 00 88 00:82 
42C8:88 00 20 00 30 20 00 00:A2 
42D0:08 08 4C 88 4C 88 88 88:D2 
42D8:88 20 20 20 20 20 00 00:22 
42E0:08 08 08 88 4C 88 CC 88:F2 
42E8:CC 20 88 20 20 20 00 00:AE 
42F0:04 00 08 08 08 88 88 88:BE 
42F8:88 20 20 20 10 00 00 00:32 
4300:0C 00 08 08 08 88 CC 00:73 
4308:88 00 20 00 20 00 00 00:D3 
4310:04 00 08 08 08 88 88 88:DF 
4318:88 88 20 20 10 88 00 00:53 
4320:0C 00 08 08 08 88 CC 00:93 
4328:88 88 88 20 20 20 00 00:7B 
4330:04 00 08 08 08 00 44 00:B3 
4338:00 88 20 20 10 00 00 00:BB 
4340:0C 08 04 00 44 00 44 00:DB 
4348:44 00 10 00 10 00 00 00:4F 
4350:08 08 08 88 88 88 88 88:B3 
4358:88 20 20 20 10 00 00 00:93 
4360:08 08 08 88 88 88 88 88:C3 
4368:20 20 10 00 10 00 00 00: 8B 
4370:08 08 08 08 08 88 88 88:53 
4378:CC 20 98 20 20 20 00 00:6F 
4380:08 08 08 08 08 88 44 00:47 
4388:88 88 88 20 20 20 00 00:DB 
4390:08 08 08 88 88 88 44 00:D7 
4398:44 00 10 00 10 00 00 00:9F 
43A0:0C 08 00 08 00 88 44 00: 2B 
43A8:88 00 20 00 30 20 00 00:83 
43B0:04 08 04 00 04 00 44 00:03 
43B8:44 00 10 00 10 20 00 00:7F 
43C0:08 00 08 00 88 00 44 00:A7 
43C8:44 00 00 88 00 20 00 20:2F 
43D0:04 08 00 08 00 88 00 88:B7 
43D8: 00 88 00 20 10 20 00 00:BB 
43E0: 00 00 00 08 04 00 0C CC:0B 
43E8:CC 98 10 00 00 20 00 00:17 
43F0: 64 0C 44 04 00 00 64 8C:A7 
43F8: 00 00 64 0C 44 88 30 8C:CB 
4400:84 00 00 00 00 00 00 00:C8 


4800:EC 8B F3 3B 20 CD C3 35:7A 
4808:73 AC 1D 15 IA 9B FA 24:E0 
4810:E7 95 A2 23 75 B2 59 23:D7 
4818:E1 DF C2 3D BC 63 3A 11:55 
4820:D0 2E FC 63 73 75 A4 42:9D 
4828:10 46 08 D7 11 EB 9E E6:D9 
4830:24 46 D4 03 1D B4 CC 5F:05 
4838:F6 0B 6C B2 16 61 CA C6:02 
4840:0F 73 55 49 2F CC 9E 9C:85 
4848:93 D8 67 14 7E 43 C2 5E:9E 
4850:94 16 E2 BE 15 51 B0 AF:8D 
4858:B1 76 89 8A 84 F6 62 C6:36 
4860:D0 48 AE 94 A7 E5 C4 94:FF 
4868:3F 2B 9D F6 73 57 2D 8D:E0 
4870:84 52 85 20 C0 65 3B BC:8A 
4878:17 FB DI 33 2F AB D2 E5:DF 
4880.-4A C2 64 51 02 23 D5 7C:95 


4888:B1 9D Al 93 78 DA 05 91:09 
4890:D2 55 51 D7 0B BB 16 26:06 
4898:61 70 39 4C 6B B4 28 4F:DB 
48A0: A3 58 E6 74 FC 9E F8 71:AD 
48A8:44 62 5C 19 11 F3 D8 40:5F 
48B0:EA 90 56 40 5B 68 FD 55:CE 
48B8: Al 88 BC B1 44 49 A8 7F:43 
48C0:6D E8 8A A5 70 F2 8B 27:58 
48C8:F9 D8 4F 06 55 A6 BD 4B:CE 
48D0:45 AE A9 DI Al 28 B7 99:D6 
48D8: AC 62 02 2F 51 AD 79 23:5C 
48E0: 2F 66 B6 43 DI EE 1D 35:6D 
48E8:F1 0D CB 52 3E 9C A7 A8:93 
48F0:1E 88 8B 25 D6 D7 08 44:2B 
48F8:77 87 97 4E B5 81 C7 C6:F2 
4900:4A AD A6 24 F3 C7 EF 1B:39 
4908:93 69 6C 2D C8 62 A8 8F:F2 
4910:D7 0D E9 C5 6F 73 25 43:11 
4918:7D BC DI EB C6 EB 79 D1:AC 
4920:E9 AB IC 29 6C 72 FC AD:B4 
4928:64 B4 D5 22 4A 18 4E 7D:50 
4930:2C 40 14 3A Al 66 76 F8:CC 
4938:5A DF 0D 4F 38 DC BF A0:75 
4940:40 4F 00 95 00 CC D4 12:DF 
4948:CE 2E 6B 21 77 AE 33 C3:64 
4950:12 A9 20 5E 3A 0E 12 3D:B1 
4958:0D 8B A5 B5 94 86 3F B2:D8 
4960:EA 69 FE DF 4F A0 55 0C:D9 
4968:A3 C4 B2 DB 05 80 3A 84:2D 
4970:B5 87 5F 85 EE 89 79 67:10 
4978:3B 8C C3 11 19 IB 24 45:E4 
4980:82 3D A6 BE 09 6A 15 CE:5B 
4988:A7 14 36 4E 31 34 C8 A3:37 
4990:Ao 31 39 IC D9 E8 61 5B:28 
4998:9C BB 9C A8 CB F0 58 E3:7E 
49A0:76 CF FC 5C 3 b 0E 79 28:6B 
49A8:A7 90 2B F7 04 85 9C 21:93 
49B0:9D C7 04 18 15 64 CA 58:97 
49B8:51 03 D6 47 C9 2D E9 69:98 
49C0: 5F C5 36 Fl 41 87 E7 70:98 
49C8:58 Cl 53 39 19 11 AD A3:7E 
49D0:8B 6E 2F 67 8B 6E C5 C5:7F 
49D8: Al EB F4 F0 4E B9 69 B7:A7 
49E0:02 71 F2 6B 79 64 80 B0:44 
49E8:99 Al D9 06 7D 18 61 F6:07 
49F0:04 AD A5 1F BE 89 F7 0B:07 
49F8:D6 AC F7 EA 44 43 30 18:F2 
4A00:D3 D4 3B 3A 46 B2 A8 FA:50 
4A08:A5 AD F5 67 2A 63 DF 91:91 
4A10:EB E8 DI 0A DI 5A FD 28:0C 
4A18:D4 AF 7C 6F D0 09 E3 B7:F7 
4A20:FC E9 27 01 EA El 7D 64:14 
4A28:C7 4E EA 07 DA 41 C6 4F:59 
4A30:1F 77 2E 58 62 FE 46 F5:E1 
4A38:6C E8 0B 3D El 4B A5 4E:ED 
4A40:2B 25 0F B7 CE BD 94 8E:F8 
4A48:0C 74 97 F6 A4 64 33 DC:F4 
4A50:58 69 A4 F3 24 55 8C AF : 7A 
4A58:08 B2 2E 2B 15 8D 28 A9:5B 
4A60:27 2C 91 CD 94 AD 6D 0B:55 
4A68:45 E5 70 AC EB 6B 8E 02:CC 
4A70: 8F D7 05 B3 6F 22 DD 1E:C4 
4A7 8 : DA B1 B7 68 34 F8 82 6B:7D 
4A80: 2F 8B 9E AE 0E 49 A8 01:3D 
4A88:D2 85 El 36 9E FB 76 0F:D3 
4A90:96 3C CD 72 2F 75 76 24:1A 
4A98 :BB B3 77 78 0C 0A ED 31:C3 
4AA0:66 82 CF 4A 80 IB 91 93:9A 
4AA8:FB FE 8D FB 37 14 B5 98:BA 
4AB0: 6F 7A 12 91 12 02 Al F1:2C 
4AB8: 8F 79 BD D7 DB E7 4B 1D:BC 
4AC0:51 38 DB C7 93 DD 7A 11:63 
4AC8:94 B9 F2 11 C6 D7 EE C8:DC 
4AD0:09 02 D7 B8 FD 3B A2 A4 :6D 
4AD8:A9 0F 77 EE 3C 07 13 9D:C9 
4AE0:15 AF FD 43 F7 D3 02 67:AB 
4AE8:FD CE A7 E3 71 3D 73 8A:64 
4AF0:12 B0 08 52 48 44 30 53:F4 
4AF8:8D C3 A8 35 B9 FA 2B F9: 8F 


4B00:27 IA 33 96 D6 B2 DE 70:83 
4B08:74 BC F2 D6 8C IA CC FC:39 
4B10:DB 60 AC 66 C4 7E 33 93:57 
4B18 :EC 91 92 BB 06 FE 0C AF:Fl 
4B20:39 41 74 E7 27 12 DA 42:53 
4B28:45 08 5D CA 0E CF DE 32:C9 
4B30:37 31 D9 69 A7 B2 30 B3:9A 
4B38:A9 3A 6C 11 5A 20 D8 2C:F2 
4B40:4E 1E 64 65 E5 B1 B9 D8:43 
4B48:00 C2 FD 6C E9 DE CF 87:60 
4B50:48 E0 EB 96 1E 16 EC 88:8A 
4B58:0A 37 IA 0A CC 93 35 64:92 
4B60:CC 15 B3 36 29 75 7A DI:FB 
4B68:69 14 3F F5 26 04 83 9F:38 
4B70:35 68 64 B4 F4 6A 81 D4:23 
4B78:7A 6B DI FD B9 DC 30 2F:07 
4B80:E1 FD 44 84 CC E5 AD 85:BF 
4B88:19 15 10 9F 40 FB IA 58:5A 
4B90:1D 68 05 E8 76 E8 9E 10:07 
4B98:78 32 C9 CA B3 50 F9 80:70 
4BA0:C5 64 55 IC 61 F2 5F 5A:E1 
4BA8:20 98 Al 4C 0E 44 5F 26:FD 
4BB0: 55 0B 71 92 97 B6 8B AF :7D 
4BB8: CB C9 1F 18 06 09 B6 E8:AB 
4BC0:B7 A3 10 08 C4 03 80 26:EE 
4BC8:C9 C2 2D 8B 28 D8 92 A5:ll 
4BD0:49 BA BF 4B 59 65 00 17:14 
4BD8:7E 1D F5 17 52 9F 13 5E:DF 
4BE0:C1 E7 17 6B 5A IC 6A 26:2B 
4BE8:0C 36 6C 51 EF 49 91 09:D3 
4BF0:81 F9 CA 28 5F 10 77 A8:68 
4BF8:7E 70 FC 55 D5 6F 83 3D:29 
4C00:11 4C A5 EC F0 48 CD 2D:F7 
4C08:1D 49 27 49 50 84 BC 55:10 
4C10:B6 D9 2A F2 D0 0A 20 2F:AE 
4C18 :C8 83 D5 93 5B 97 0C 04:C2 
4C20: 9F 72 84 33 CE CC 6B B9:CA 
4C28:A8 36 2B A8 02 61 37 CC:DA 
4C30:E2 CA 5C D2 78 0B 93 6A:3D 
4C38:49 5F CC AD E8 E0 D4 A2:47 
4C40:17 IA 45 64 9A E3 66 14:F4 
4C48:2D C8 1E 9F 68 IC 58 4A:8F 
4C50:5C BC D3 DA EB AE 7E 58:2E 
4C58:30 CC 8C 8E 69 32'DI 50:B8 
4C60:53 7C 76 64 6E 82 92 3D:01 
4C68: BD 81 0D D4 19 95 DB 3A:B2 
4C70:E0 02 7B D8 BE 26 B9 1E:0A 
4C78:31 EE C8 E2 Fl D6 8E 0F:C4 
4C80:F5 9E 9F 11 9D 7A 9D 87:8E 
4C88:05 86 BB 88 AE 2F A0 18:D6 
4C90:F1 20 13 46 D0 91 EF DE:4D 
4C98:0B 0E 43 80 A0 9C E9 81:03 
4CA0:72 9C 6E 44 C3 3C C6 1A:61 
4CA8:2E 00 D2 93 4D 79 31 BA:62 
4CB0 :63 0E D3 C6 21 71 58 B2;4F 
4CB8:E7 F5 86 52 BF 38 9B 96:A7 
4CC0: A3 79 1E BD El 13 75 9B:D1 
4CC8:98 DI 29 FA 8A 8F 7F 11:BE 
4CD0:CC EB 94 0B 49 8E 3E A4:39 
4CD8: 00 4B IC 24 87 95 3B 55:04 
4CE0:FC 3E F7 0C FB F4 37 ED:41 
4CE8:30 CF 81 36 81 05 58 F8:28 
4CF0:16 04 36 39 A4 58 IB 5F:D9 
4CF8:1E 2A 17 EA 5B 53 30 01:B4 
4D00:C2 2B 90 5D 9A 2F 77 27:1E 
4D08:E5 52 Fl 67 05 54 DA C9:9C 
4D10 :E6 18 3F ED C2 66 62 AA:10 
4D18:A0 65 58 92 49 E4 B5 E9:1F 
4D20:B3 B0 8E 0C 4D 3C EC 05:DF 
4D28:C6 C8 36 1D 1D 04 0A 3B:A8 
4D30:91 15 B2 F6 42 C6 60 6D:1C 
4D38:F8 D8 E6 43 6E C4 81 66:60 
4D40:C8 8D EA CD 13 79 62 BA:14 
4D48:B8 CA 74 55 AD 96 F4 F5:CA 
4D50:4C C8 68 C3 8F 82 16 98:EE 
4D58:20 74 2B EF D0 0C 2C 52:06 
4D60: 0F 96 F6 98 BD B1 14 F3:25 
4D68:22 IC B5 DF E8 BB A8 Al:34 
4D70:F2 B4 89 52 BB C3 25 72:C6 
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DEATH'S TICKET 


4D78:68 5C D2 B8 77 BB CF F8:59 
4D80:53 C0 52 FA 06 2E 2F 83:11 
4D8 8 : DA 33 4F 18 B2 73 32 B7:A4 
4D90:2C 3B 1E E2 58 04 D8 A6:49 
4D98:83 5F AE 6B B0 2C C6 6C:1E 
4DA0:F8 04 C4 2C 03 AB 48 D0:72 
4DA8:92 2D 35 97 80 74 8F A4:1D 
4DB0:19 5F 34 33 EC C0 98 01:88 
4DB8:3C 9F E0 E7 45 1D 49 C6:F1 
4EC0:9B F2 60 2A E7 ED 6E 7B:3F 
4DC8: 3F D0 AC 97 55 DB C7 D3:28 
4DD0:4D 0E 82 EB AE DB 54 6E:FC 
4DD8:8B 89 6A D6 D0 B2 A4 3B:E8 
4DE0:11 7C 03 E4 7A 64 B7 A4;AA 
4DE8:94 FD E2 3A B3 01 23 BC:AB 
4DF0:8C EA 24 11 CA 98 EE FE:41 
4DF8:65 C3 FA 81 77 31 8E 26:AD 
4E00:04 C7 3C 16 1E 10 77 A3:3B 
4E08: 8F 4A 6C E0 66 55 7E 13:43 
4E10:02 FC 6F 33 25 08 F7 17:D3 
4E18:C5 E9 1D 57 F5 31 A4 7E:0B 
4E20:85 BB CB 33 F4 B1 51 7F:AF 
4E28:DA 37 04 FA 11 29 IC 3B:99 
4E30:E5 B2 D8 6D 30 7E 59 11:DE 
4E38:14 8C 1E 94 80 80 77 40:1D 
4E40:F9 69 96 86 2A 15 5B 9A:D0 
4E48: 5E C9 F7 Fl 77 4F EE 06-.0E 
4E50:04 45 E0 B3 2B Fl 5B 58:52 
4E58: Fl 4F A4 A5 52 7F 5A 50:3F 
4E60:7B 3E EF D2 0E 73 87 C3:7B 
4E68:EF 82 E6 26 29 5D C0 A8:6E 
4E70:E3 55 A9 BF 87 7F AB C6:BC 
4E78:C4 4E 2D E2 71 7E DA E5:7C 
4E80:A7 9C 43 E0 84 5F 82 B9:1A 
4E88.-7C 22.EB D6 IB 57 IB 73:95 
4E90:70 01 AC 9A 16 DB FD 30:B7 
4E98: 0F 9C FD B2 49 FB 20 D8:DB 
4EA0:BA 94 2F E3 48 93 08 18:BB 
4EA8:5B F7 D2 36 73 06 E7 3F:39 
4EB0:C4 F8 B6 9D BD 19 68 69:AF 
4EB8:28 69 74 63 C5 C0 E0 09:A9 
4EC0:84 26 D2 14 BB E8 9A 62:01 
4EC8:CA 66 BC 46 FC BF B0 8E:9E 
4ED0: FC 85 5D DC 5B 8C A6 3C:24 
4ED8: 52 E4 8D 33 32 EE D4 CF:85 
4EE0:E3 F3 85 13 BF 70 CF 10:56 
4EE8:E7 6C B1 84 EC 99 18 EE:62 
4EF0:EB 74 E5 7B 9B F0 BE FB:5D 
4EF8:77 60 B2 69 EF 4F 33 33:B9 
4F00:FE 3C 75 F3 75 04 9C 59:5D 
4F08:5E 5A 69 50 C8 0C 6B 7E:F1 
4F10:F1 09 05 IC C8 47 69 18:12 
4F18 :DF 44 66 13 A4 34 71 EE: 3F 
4F20:BA El 5B 27 43 El DI 37:9C 
4F28: 3F 65 D2 45 4A Cl 12 6C:E0 
4F30:46 3C 9A D6 6D 1D C3 65:AF 
4F38:B6 3F 2E 07 9C 18 A8 69:DD 
4F40:57 8C 48 70 91 C8 80 E3:B3 
4F48:53 AB 18 60 1F 33 6B 7B:9A 
4F50:AC B2 4B 9A 2C 95 6C E9:8E 
4F58:B7 77 C3 81 Al 0F 37 3C:79 
4F60:02 A5 47 BA E0 9C 02 DD:B6 
4F68:BC FC 58 EA 5B EB D9 20:53 
4F70:B6 09 4C F2 11 3A 78 C9:74 
4F78:74 C8 47 78 F5 63 IC CE:CF 
4F80:98 E5 34 34 F2 F5 D7 F9:BE 
4F88:4C C7 E2 63 25 A3 62 36:CC 
4F90:EF 23 9A 10 36 22 El 14:C3 
4F98:33 8F D3 FE E9 39 50 6D:24 
4FA0:8D 0C 45 CB 87 03 88 CE:6C 
4FA8-.BE 91 7B 41 43 2C B4 A6.BF 
4FB0.-D6 AB C4 17 4E DD 12 27:3D 
4FB8:65 26 88 EF 94 82 49 5A:CB 
4FC0:0E 4C 68 2A 0F D3 53 42:27 
4FC8:71 65 3F El C6 0D 64 97:33 
4FD0:18 FE 48 IB B4 BC C7 22:E4 
4FD8:D1 06 10 0C IC 42 CD 86:47 
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53 21 53 61 


13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 
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13 

13 

13 

13 

13 
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13 

13 

13 
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13 

13 
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13 
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13 

13 

13 

13 

13 
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13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

53 

53 

53 

53 

53 

53 

53 


21 :AE 
21:36 
21: 3E 
21:46 
21 :CE 
21:56 
21: 5E 
21:66 
21 :EE 
21:76 
21 :7E 
21:86 
21: 0E 
21:1F 
21:27 
21:2F 
21 :B7 
21:3F 
21:47 
21:4F 
21 :D7 
21:5F 
21:67 
21:6F 
21 :F7 
21:7F 
21:87 
21:8F 
21:17 
21:9F 
21 :A7 
21 : AF 
21:37 
21 :BF 
21 :C7 
21: CF 
21:57 
21: DF 
21 :E7 
21: EF 
21:77 
21 :FF 
21:07 
21:0F 
21:97 
21:20 
21:28 
21:30 
21 :B8 
21:40 
21:48 
21:50 
21 :D8 
21:60 
21:68 
21:70 
21 :F8 
21:80 
21:88 
21:90 
21:18 
21 : A0 
21 : A8 
21 :B0 
21:38 
21 :C0 
21: C8 
21 :D0 
21:58 
21 :E0 
21 :E8 
21 :F0 
21:78 
21:00 
21:08 
21:10 
Al :98 


21 :B9 
21:41 
21:49 
21 :D1 


DEATH'S TICKET 


5D38:53 21 53 21 53 21 
5D40:53 21 53 21 53 21 
5D48:53 21 53 21 53 21 
5D50:53 61 53 21 53 21 
5D58:53 21 53 21 53 21 
5060:53 21 53 21 53 21 
5D68:53 21 53 21 53 61 
5D70:53 21 53 21 53 21 
5D78:53 21 53 21 53 21 
5D80:53 21 53 21 53 21 
5D88:53 61 53 21 53 21 
5D90:53 21 53 21 53 21 
5D98:53 21 53 21 53 21 
5DA0:53 21 53 21 53 61 
5DA8:53 21 53 21 53 21 
5DB0:53 21 53 21 53 21 
5DB8:53 21 53 21 53 21 
5DC0:53 61 53 21 53 21 
5DC8:53 21 53 21 53 21 
5DD0:53 21 53 21 53 21 
5DD8:53 21 53 21 53 61 
5DE0:53 21 53 21 53 21 
5DE8:53 21 53 21 53 21 
5DF0:53 21 53 21 53 21 
5DF8:53 61 53 21 53 21 
5E00:53 21 53 21 53 21 
5E08-.53 21 53 21 53 21 
5E10:53 21 53 21 53 61 
5E18: 53 21-53 21 53 21 
5E20:53 21 53 2l 53 21 
5E28:53 21 53 21 53 21 
5E30:53 61 53 21 53 21 
5E38:53 21 53 21 53 21 
5E40:53 21 53 21 53 21 
5E48:53 21 53 21 53 61 
5E50:53 21 53 21 53 21 
5E58:53 21 53 21 53 21 
5E60:53 21 53 21 53 21 
5E68:53 61 53 21 53 21 
5E70:53 21 53 21 53 21 
5E78:53 21 53 21 53 21 
5E80:53 21 53 21 53 61 
5E88:53 21 53 21 53 21 
5E90:53 21 53 21 53 21 
5E98:53 21 53 21 53 21 
5EA0:53 61 53 21 53 21 
5EA8:53 21 53 21 53 21 
5EB0:53 21 53 21 53 21 
5EB8:53 21 53 21 53 El 
5EC0:93 21 93 21 93 21 
5EC8:93 21 93 21 93 21 
5ED0:93 21 93 21 93 21 
5ED8:93 61 93 21 93 21 
5EE0:93 21 93 21 93 21 
5EE8-.93 21 93 21 93 21 
5EF0:93 21 93 21 93 61 
5EFS : 93 21 93 21 93 21 
5F00:-93 21 93 21 93 21 
5F08:93 21 93 21 93 21 
5F10:93 61 93 21 93 21 
5F18:93 21 93 21 93 21 
5F20:93 21 93 21 93 21 
5F28:93 21 93 21 93 61 
5F30:93 21 93 21 93 21 
5F38:93 21 93 21 93 21 
5F40:93 21 93 21 93 21 
5F48:93 61 93 21 93 21 
5F50:93 21 93 21 93 21 
5F58:93 21 93 21 93 21 
5F60:93 21 93 21 93 61 
5F68:93 21 93 21 93 21 
5F70:93 21 93 21 93 21 
5F78:93 21 93 21 93 21 
5FS0:93 61 93 21 93 21 
5F88:93 21 93 21 93 21 
5F90:93 21 93 21 93 21 
5F98:93 21 93 21 93 61 
5FA0:93 21 93 21 93 21 
5FA8:93 21 93 21 93 21 
5FB0:93 21 93 21 93 21 
5FB8:93 61 93 21 93 21 
5FC0:93 21 93 21 93 21 
5FC8-.93 21 93 21 93 21 
5FD0:93 21 93 21 93 61 


53 21:59 5FD8:93 
53 21:61 5FE0: 93 
53 21:69 5FE8:93 
53 21:F1 5FF0: 93 
53 21:79 5FF8:93 
53 21:81 6000:93 
53 21:09 6008:93 
53 21:91 6010:93 
53 21:99 6018:93 
53 21 :Al 6020:93 
53 21:29 6028:93 
53 21:B1 6030:93 
53 21:B9 6038:93 
53 21:41 6040:93 
53 21:C9 6048:93 
53 21:D1 6050:93 
53 21:D9 6058:93 
53 21:61 6060:93 
53 21:E9 6068:93 
53 21:F1 6070:93 
53 21:79 6078:93 
53 21:01 6080:93 
53 21:09 6088:93 
53 21:11 6090:93 
53 21:99 6098:93 
53 21:22 60A0:93 
53 21-.2A 60A8-.93 
53 21:B2 60B0:93 
53 21:3A 60B8;93 
53 21:42 60C0:93 
53 21:4A 60C8:93 
53 21:D2 60D0:93 
53 21:5A 60D8:93 
53 21:62 60E0:93 
53 21:EA 60E8:93 
53 21:72 60F0:93 
53 21:7A 60F8:93 
53 21:82 6100:93 
53 21:0A 6108:93 
53 21:92 6110:93 
53 21 :9A 6118:93 
53 21:22 6120:93 
53 21 :AA 6128:93 
53 21:B2 6130:93 
53 21:BA 6138:93 
53 21:42 6140:93 
53 21:CA 6148:93 
53 21:D2 6150:93 
53 21:5A 6158:93 
93 21:E2 6160:D3 
93 21:EA 6168:D3 
93 21:F2 6170:D3 
93 21:7A 6178:D3 
93 21:02 6180:D3 
93 21-.0A 6188:D3 
93 21:92 6190:D3 
93 21 :IA 6198:D3 
93 21:23 61A0:D3 
93 21:2B 61A8:D3 
93 21:B3 61B0:D3 
93 21:3B 61B8:D3 
93 21:43 61C0:D3 
93 21:CB 61C8:D3 
93 21:53 61D0:D3 
93 21:5B 61D8:D3 
93 21:63 61E0:D3 
93 21:EB 61E8:D3 
93 21:73 61F0:D3 
93 21:7B 61F8:D3 
93 21:03 6200:D3 
93 21:8B 6208:D3 
93 21:93 6210:D3 
93 21:9B 6218:D3 
93 21:23 6220:D3 
93 21 :AB 6228:D3 
93 21:B3 6230:D3 
93 21.-3B 6238:D3 
93 21:C3 6240:D3 
93 21:CB 6248:D3 
93 21:D3 6250:D3 
93 21:5B 6258:D3 
93 21:E3 6260:D3 
93 21-.EB 6266:D3 
93 21:73 6270:D3 


21 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
61 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 61 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
61 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 61 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
61 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 61 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
61 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 61 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
61 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 61 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
61 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 61 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
61 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 21 93 
21 93 21 93 El 93 
21 D3 21 D3 21 D3 
21 03 21 D3 21 03 
21 D3 21 D3 61 03 
21 D3 21 D3 21 D3 
21 D3 21 D3 21 D3 
21 D3 21 D3 61 D3 
21 03 21 D3 21 D3 
21 03 21 D3 21 03 
21 03 21 D3 61 D3 
21 D3 21 D3 21 D3 
21 D3 21 03 21 D3 
21 03 21 D3 61 D3 
21 03 21 D3 21 D3 
21 D3 21 D3 21 D3 
21 D3 21 D3 61 D3 
21 03 21 D3 21 03 
21 03 21 D3 2l D3 
21 D3 21 D3 61 03 
21 D3 21 D3 21 D3 
21 03 21 03 21 03 
21 03 21 03 61 D3 
21 D3 21 03 21 D3 
21 D3 21 P3 21 D3 
21 D3 21 D3 61 D3 
21 D3 21 Dâ 21 D3 
21 03 21 D3 21 D3 
21 D3 21 03 61 D3 
21 D3 21 D3 21 D3 
21 D3 21 03 21 03 
21 D3 21 D3 61 D3 
21 D3 21 D3 21 03 
21 D3 21 D3 21 D3 
21 03 21 03 61 03 
21 03 21 03 21 03 
21 D3 21 03 21 D3 


21:FB 6278:D3 21 
21:03 6280.-D3 21 
21:0B 6288:D3 21 
21:93 6290:D3 21 
21 : IB 6298:D3 21 
21:24 62A0: 03 21 
21:AC 62A8:D3 21 
21:34 62B0-.D3 21 
21:3C 62B8:D3 21 
21:44 62C0:D3 21 
21:CC 62C8:D3 21 
21:54 62D0:D3 21 
21:5C 62D8:D3 21 
21:E4 62E0:D3 21 
21:6C 62E6:03 21 
21:74 62F0:D3 21 
21: 7C 62F8:D3 21 
21:04 6300:03 21 
21:8C 6308:03 21 
21:94 6310:D3 21 
21 :IC 6316:D3 21 
21 : A4 6320:D3 21 
21 :AC 6328:03 21 
21:B4 6330:D3 21 
21:3C 6338:D3 21 
21:C4 6340:D3 21 
21-.CC 6348:03 21 
21:54 6350:D3 21 
21:DC 6358:D3 21 
21:E4 6360:03 21 
21:EC 6368:D3 21 
21:74 6370:D3 21 
21:FC 6378:D3 21 
21:04 6380:D3 2l 
21:8C 6388:03 21 
21:14 6390:D3 21 
21 : IC 6398 :D3 21 
21:25 63A0:13 22 
21:AD 63A8:13 22 
21:35 63B0:13 22 
21:3D 63B8:13 22 
21:C5 63C0:13 22 
21:40 63C8:13 22 
21:55 63D0:13 22 
21: 50 63D8 :13 22 
21:E5 63E0:13 22 
21:6D 63E8:13 22 
21:75 63F0:13 22 
21:FD 63F8:13 22 
21:85 6400:13 22 
21: 80 6408:13 22 
21:15 6410:13 22 
21:9D 6418:13 22 
21 :A5 6420:13 22 
21:2D 6428:13 22 
21:B5 6430:13 22 
21:BD 6438:13 22 
21:45 6440:13 22 
21:CD 6448:13 22 
21:D5 6450:13 22 
21: 5D 6458:13 22 
21 :E5 6460:13 22 
21 :ED 6468:13 22 
21:75 6470:13 22 
21:FD 6478:13 22 
21:05 6480:13 22 
21:8D 6488:13 22 
21:15 6490:13 22 
21:10 6498:13 22 
21:A6 64A0:13 22 
21: 2E 64A8.-13 22 
21:36 64B0:13 22 
21:BE 64B8:13 22 
21:46 64C0:13 22 
21:4E 64C8:13 22 
21 :D6 64D0:13 22 
21: 5E 64D8:13 22 
21:66 64E0:13 22 
21:EE 64E8:13 22 
21:76 64F0.-13 22 
21:7E 64F8:13 22 
21:06 6500:13 22 
21:8E 6508:13 22 
21:96 6510:13 22 


D3 21 03 61 D3 21:1E 
D3 21 03 21 D3 21:A6 
D3 21 D3 21 D3 21:AE 
03 21 D3 61 03 21:36 
03 21 D3 21 D3 21:BE 
D3 21 03 21 D3 21:C6 
D3 21 D3 61 D3 21:4E 
D3 21 D3 21 D3 21:D6 
D3 21 D3 21 D3 21:DE 
D3 21 03 61 D3 21:66 
D3 21 03 21 D3 21:EE 
D3‘21 D3- 21 D3 21:F6 
D3 21 D3 61 D3 21:7E 
03 21 D3 21 D3 21:06 
03 21 D3 21 D3 21:0E 
03 21 D3 61 D3 21:96 
D3 21 D3 21 D3 21:1E 
D3 21 D3 21 D3 21:27 
D3 21 D3 61 D3 21:AF 
03 21 D3 21 D3 21:37 
D3 21 D3 21 D3 21:3F 
D3 21 03 61 D3 21:C7 
D3 21 03 21 D3 21:4F 
D3 21 03 21 D3 21:57 
D3 21 D3 61 D3 21:DF 
D3 21 D3 21 D3 21:67 
D3 21 D3 21 D3 21:6F 
D3 21 D3 61 D3 21:F7 
D3 21 03 21 03 21:7F 
D3 21 D3 21 D3 21:87 
D3 21 D3 61 D3 21:0F 
D3 21 03 21 D3 21:97 
D3 21 D3 21 D3 21:9F 
D3 21 D3 61 D3 21:27 
D3 21 03 21 D3 21:AF 
D3 21 03 21 D3 21-.B7 
D3 21 D3 61 03 Al :3F 
13 22 13 22 13 22:DB 
13 22-13 62 13 22:63 
13 22 13 22 13 22:EB 
13 22 13 62 13 22:73 
13 22 13 22 13 22:FB 
13 22 13 62 13 22:83 
13 22 13 22 13 22:0B 
13 22 13 62 13 22:93 
13 22 13 22 13 22:1B 
13 22 13 62 13 22:A3 
13 22 13 22 13 22:2B 
13 22 13 62 13 22:B3 
13 22 13 22 13 22:3C 
13 22 13 62 13 22:C4 
13 22 13 22 13 22:4C 
13 22 13 62 13 22:D4 
13 22 13 22 13 22:5C 
13 22 13 62 13 22:E4 
13 22 13 22 13 22:6C 
13 22 13 62 13 22:F4 
13 22 13 22 13 22:7C 
13 22 13 62 13 22:04 
13 22 13 22 13 22:8C 
13 22 13 62 13 22:14 
13 22 13 22 13 22:9C 
13 22 13 62 13 22:24 
13 22 13 22 13 22:AC 
13 22 13 62 13 22:34 
13 22 13 22 13 22:BC 
13 22 13 62 13 22:44 
13 22 13 22 13 22:CC 
13 22 13 62 13 22:54 
13 22 13 22 13 22:DC 
13 22 13 62 13 22:64 
13 22 13 22 13 22:EC 
13 22 13 62 13 22:74 
13 22 13 22 13 22:FC 
13 22 13 62 13 22:84 
13 22 13 22 13 22:0C 
13 22 13 62 13 22:94 
13 22 13 22 13 22:1C 
13 22 13 62 13 22:A4 
13 22 13 22 13 22:2C 
13 22 13 62 13 22:B4 
13 22 13 22 13 22:3D 
13 22 13 62 13 22:C5 
13 22 13 22 13 22:4D 
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6518:13 22 13 22 
6520:13 22 13 22 
6528:13 22 13 22 
6530:13 22 13 22 
6538:13 22 13 22 
6540:13 22 13 22 
6548:13 22 13 22 
6550:13 22 13 22 
6558:13 22 13 22 
6560:13 22 13 22 
6568:13 22 13 22 
6570:13 22 13 22 
6578:13 22 13 22 
6580:13 22 13 22 
6588:13 22 13 22 
6590:13 22 13 22 
6598:13 22 13 22 
65A0:13 22 13 22 
6 5A8:13 22 13 22 
6 5B0-.13 22 13 22 
65B8:13 22 13 22 
65C0:13 22 13 22 
65C8:13 22 13 22 
65D0:13 22 13 22 
65D8:13 22 13 22 
65E0:13 22 13 22 
65E8:13 22 13 22 
65F0:13 22 13 22 
65F8:13 22 13 22 
6600:13 22 13 22 
6608:13 22 13 22 
6610:13 22 13 22 
6618:13 22 13 22 
6620:53 22 53 22 
6628:53 22 53 22 
6630:53 22 53 22 
6638:53 22 53 22 
6640:53 22 53 22 
6648:53 22 53 22 
6650:53 22 53 22 
6658:53 22 53 22 
6660:53 22 53 22 
6666:53 22 53 22 
6670:53 22 53 22 
6678:53 22 53 22 
6680:53 22 53 22 
6688:53 22 53 22 
6690:53 22 53 22 
6698:53 22 53 22 
66A0: 53 22 53 22 
66A8: 53 22 53 22 
66B0:53 22 53 22 
66B8: 53 22 53 22 
66C0: 53 22 53 22 
66C8: 53 22 53 22 
66D0:53 22 53 22 
66D8: 53 22 53 22 
66E0: 53 22 53 22 
66E8: 53 22 53 22 
66F0: 53 22 53 22 
66F8: 53 22 53 22 
6700:53 22 53 22 
6708:53 22 53 22 
6710:53 22 53 22 
6718:53 22 53 22 
6720:53 22 53 22 
6728:53 22 53 22 
6730:53 22 53 22 
6738:53 22 53 22 
6740:53 22 53 22 
6748:53 22 53 22 
6750:53 22 53 22 
6758:53 22 53 22 
6760:53 22 53 22 
6768:53 22 53 22 
6770:53 22 53 22 
6778:53 22 53 22 
6780:53 22 53 22 
6788:53 22 53 22 
6790:53 22 53 22 
6798:53 22 53 22 
67A0:53 22 53 22 
67A8: 53 22 53 22 
67B0:53 22 53 22 


13 62 13 22:D5 
13 22 13 22 :5D 
13 62 13 22:E5 
13 22 13 22 :6D 
13 62 13 22:FS 
13 22 13 22:7D 
13 62 13 22:05 
13 22 13 22 :8D 
13 62 13 22:15 
13 22 13 22:9D 
13 62 13 22:25 
13 22 13 22:AD 
13 62 13 22:35 
13 22 13 22:BD 
13 62 13 22:45 
13 22 13 22:CD 
13 62 13 22:55 
13 22 13 22:DD 
13 62 13 22:65 
13 22 13 22:ED 
13 62 13 22:75 
13 22 13 22:FD 
13 62 13 22:85 
13 22 13 22:0D 
13 62 13 22:95 
13 22 13 22 : 1D 
13 62 13 22 :A5 
13 22 13 22 :2D 
13 62 13 22:B5 
13 22 13 22 :3E 
13 62 13 22:C6 
13 22 13 22:4E 
13 E2 13 22:D6 
53 22 53 22 :5E 
53 62 53 22:E6 
53 22 53 22:6E 
53 62 53 22:F6 
53 22 53 22 :7E 
53 62 53 22:06 
53 22 53 22:8E 
53 62 53 22:16 
53 22 53 22 :9E 
53 62 53 22:26 
53 22 53 22:&E 
53 62 53 22:36 
53 22 53 22:BE 
53 62 53 22:46 
53 22 53 22:CE 
53 62 53 22:56 
53 22 53 22:DE 
53 62 53 22:66 
53 22 53 22:EE 
53 62 53 22:76 
53 22 53 22:FE 
53 62 53 22:86 
53 22 53 22:0E 
53 62 53 22:96 
53 22 53 22 : 1E 
53 62 53 22 :A6 
53 22 53 22:2E 
53 62 53 22:B6 
53 22 53 22:3F 
53 62 53 22:C7 
53 22 53 22:4F 
53 62 53 22:D7 
53 22 53 22:5F 
53 62 53 22:E7 
53 22 53 22:6F 
53 62 53 22:F7 
53 22 53 22:7F 
53 62 53 22:07 
53 22 53 22:8F 
53 62 53 22:17 
53 22 53 22:9F 
53 62 53 22:27 
53 22 53 22:AF 
53 62 53 22:37 
53 22 53 22:BF 
53 62 53 22:47 
53 22 53 22:CF 
53 62 53 22:57 
53 22 53 22:DF 
53 62 53 22:67 
53 22 53 22:EF 


(67BJU53 22 53 
V7Ü0: 53 22 53 
67C8:53 22 53 
67D0: 53 22 53 
67D8: 53 22 53 
67E0: 53 22 53 
67E8: 53 22 53 
67F0:53 22 53 
67F8: 53 22 53 
6800:53 22 53 
6808:53 22 53 
6810:53 22 53 
6818:53 22 53 
6820:53 22 53 
6828:53 22 53 
6830:53 22 53 
6838:53 22 53 
6840:53 22 53 
6848:53 22 53 
6850:53 22 53 
6858:53 22 53 
6860:53 22 53 
6868:53 22 53 
6870:53 22 53 
6878:53 22 53 
6880:53 22 53 
6888:53 22 53 
6890:53 22 53 
6898:53 22 53 
'• “68*0793 22 93 
S1-68A&7 93 22 93 
68B0:93 62 93 
68B8:93 22 93 
68C0:93 22 93 
68C8: 93 22 93 
68D0: 93 22 93 
68D8: 93 62 93 
68E0: 93 22 93 
68E8: 93 22 93 
68F0: 93 22 93 
68F8:93 22 93 
6900:93 62 93 
6908:93 22 93 
6910:93 22 93 
6918:93 22 93 
6920:93 22 93 
6928:93 62 93 
6930:93 22 93 
6938:93 22 93 
6940:93 22 93 
6948:93 22 93 
6950:93 62 93 
6958:93 22 93 
6960:93 22 93 
6968:93 22 93 
6970:93 22 93 
6978:93 62 93 
6980:93 22 93 
6988:93 22 93 
6990:93 22 93 
6998:93 22 93 
69A0:93 62 93 
69A8:93 22 93 
69B0:93 22 93 
69B8: 93 22 93 
69C0: 93 22 93 
69C8: 93 62 93 
69D0: 93 22 93 
69D8: 93 22 93 
69E0:93 22 93 
69E8:93 22 93 
69F0: 93 62 93 
69F8: 93 22 93 
6A00: 93 22 93 
6A08: 93 22 93 
6A10:93 22 93 
6A18:93 62 93 
6A20:93 22 93 
6A28: 93 22 93 
6A30:93 22 93 
6A38: 93 22 93 
6A40: 93 62 93 
6A48: 93 22 93 
6A50: 93 22 93 


22 53 62 53 22:77 
22 53 22 53 22:FF 
22 53 62 53 22:87 
22 53 22 53 22:0F 
22 53 62 53 22:97 
22 53 22 53 22:1F 
22 53 62 53 22:A7 
22 53 22 53 22:2F 
22 53 62 53 22:B7 
22 53 22 53 22:40 
22 53 62 53 22:C8 
22 53 22 53 22:50 
22 53 62 53 22:D8 
22 53 22 53 22:60 
22 53 62 53 22:E8 
22 53 22 53 22:70 
22 53 62 53 22:F8 
22 53 22 53 22:80 
22 53 62 53 22:08 
22 53 22 53 22:90 
22 53 62 53 22:18 
22 53 22 53 22:A0 
22 53 62 53 22:28 
22 53 22 53 22:B0 
22 53 62 53 22:38 
22 53 22 53 22:C0 
22 53 62 53 22:48- 
22 53 22 53 22:D0 
22 53 62 53 A2:58 
22 93 22 93 22:E0 
22 93 22 93 22:E8 
22 93 22 93 22:70 
22 93 22 93 22:F8 
22 93 62 93 22:80 
22 93 22 93 22:08 
22 93 22 93 22:10 
22 93 22 93 22:98 
22 93 22 93 22:20 
22 93 62 93 22:A8 
22 93 22 93 22:30 
22 93 22 93 22:38 
22 93 22 93 22:C1 
22 93 22 93 22:49 
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CPC 


PROGRAMMATION 

Physique amusante 

LA MOLÉCULE 


N’ayez crainte, nul logiciel éducatif, 
mais un redoutable casse-tête ayant 
pour décor les confins de la matière. 



Ü r.e configuration molécu¬ 
laire vous est proposée 
par l’ordinateur. A vous 
de reconstituer le modèle par 
l'assemblage de divers atomes 
au moyen d'un téiéporteur. Les 
indications nécessaires sont 


du second listing. Spécifiez 
9700 comme adresse de début 
et sauvegardez le fichier binai¬ 
re sous le nom «MOLB1N». Si 
vous le désirez, morcelez votre 
travail en plusieurs fichiers 
(Ml, M2, etc.). Ces derniers 


80 REM : : [419] 

90 REM : Claude LE MOULLEC : [2031] 

100 REM : : [419] 

110 REM ::::::::::::::::::::::: [1736] 

120 REM [272] 

130 REM [1736] 

140 REM : : [419] 

150 REM : REDEFINITION [1622] 

160 REM : : [419] 

170 REM [1736] 

180 SYMBOL AFTER 169 [1435] 


190 SYMBOL 170,170,170.170,170,17 [2823] 
0,170,170,170 

200 SYMBOL 171,0,84,84,84,84,84,8 [1597] 
4,0 

210 SYMBOL 201,0,0,0,0,1,1,0,1 [1667] 

220 SYMBOL 202,14,31,123,245,226, [2905] 
255,127,103 

230 SYMBOL 203,128,224,192,224,25 [3220] 
2 255 255 224 

240 SYMBOL 204,0,0.0,58,239,255,2 [2001] 
54,188 

250 SYMBOL 205,3,3,1,0,1,3,15,62 [1814] 

260 SYMBOL 206,108,113,191,220,17 [2683] 
9,119,127,248 

270 SYMBOL 207,15.252,128,0,192,2 [2530] 
24.253.195 

280 SYMBOL 208,240,0,0,0,0,0,0,12 [1947] 
8 

290 SYMBOL 209,124,249,0,0,0,0,0, [1555] 
0 

300 SYMBOL 210,231,223,0,0,0,0,0, [2016] 


incluses. 

Sauvegarde 

Sauvez sous le nom évident de 
«MOLECULE», le programme 
Basic principal. Entrez ensuite 
par Amsaisie V.2 en vous 
reportant à son mode d'em¬ 
ploi, les codes hexadécimaux 


devront ultérieurement être 
chargés à la suite (LOAD ''Ml" 
: LOAD "M2", etc.) après un 
MEMORY &96FF et sauvegar¬ 
dés ainsi dans un fichier 
unique: 

SAVE "MOLBIN",b, &9700, 
&9AD 

Claude Le Moullec 



310 SYMBOL 211,63,255,0,0,0, 
320 SYMBOL 212,192,192,0,0,0 


330 SYMBOL 213,254.188,94.47,255, 
255,126,192 

340 SYMBOL 214,254.252,30,15,255, 
193,0,0 
350 REM 
360 REM 
370 REM 
380 REM 
390 REM 

400 MEMORY &96FF:LOAD "IMOLBIN”.& 


[2345] 

[1836] 

[2394] 

[2281] 

[1736] 

[419] 

[2081] 

[419] 

[1736] 

[1714] 


[1736] 

9700 


[419] 

410 GOSUB 3630 

[1194] 

[1002] 

420 DEFINI a-z:CALL &BBFF: MODE 0: 

[1865] 

[419] 

BORDER 0 


[1736] 

430 RESTORE 440:FOR h=0 TO 15:REA 

[2940] 

[419] 

D a:INK h.a:NEXT 


[538] 

440 DATA 0,1,15,5,3,22,14,7,16,9, 

[1985] 


24 
































CRC 


PROGRAMMATION 


13,24,18,23,26,6 

450 INK 7,7,18•tr$=CHR$(22)+CHR$( [3976] 
1):nr$=CHR$(22)+CHR$(0) 

460 DEF FN lt(x,y)=&C000+(y-1)*80 [1711] 
+(x-1)*2 

470 ali3$=CHR$(209)+CHR$(210)+CHR [2257] 
$(211)+CHR$(212) 

480 ali2$=CHR$(205) +CHR$'(206) +CHR [2118] 
$(207)+CHR$(208) 

490 alil$=GHR$(201)+CHR$(202)+CHR [3744] 
$(203)+CHR$(204) 

500 DIM sp(20):FOR H=0 TO 15:SP(H [4722] 
+1)=&9700+(H*64):NEXT:SP(20)=&A40 
0 

510 DIM JE(16,13):WINDOW #2,17,19 [2387] 
,18,23 

520 SC=0:POKE &A039,200 :TTT=210: T [1467] 
A=1 

530 ON BREAK GOSUB 2670:REM ligne [2858] 
a n’entrer que quand prog au poi 


nt 

540 GOTO 720 [421] 

550 REM [1736] 

560 REM : : [419] 

570 REM : DECOR DE BASE : [1019] 

580 REM : : [419] 

590 REM ::::::::::::::::::::::: [1736] 


600 FOR H=0 TO 30:CALL &A032.&C00 [3150] 

0+H:CALL &A032.&C03B-H:NEXT 

610 DEF FN po(x,y)=&C000+(y-l)*24 [2654] 

0+(x-l)*6:POKE &A01A,24:POKE &A01 

E, 6 

620 RESTORE 660:FOR g=l TO 4 :READ [3312] 
a$: FOR h=l TO 10 

630 b$=MID$(a$,h,1):a=VAL(b$): IF [2963] 
a=® THEN 650 

640 CALL &A00D.FN po(h,g),&9BA0 [1829] 

650 NEXT h,g [382] 

660 DATA 111100011111,11100011111 [2523] 

1 , 110000000011,100000000010 
670 RESTORE 710:FOR g=5 TO 8 :READ [2310] 
a$: FOR h=l TO 10 

680 b$=MID$(a$,h,1):a=VAL(b$): IF [3016] 
a=0 THEN 700 

690 CALL &A00D.FN po(h,g)+80,&9BA [2390] 
0 

700 NEXT h,g:POKE &A01A,16:POKE & [1180] 
A01E,4 :RETURN 

710 DATA 0000001000,0000111000,00 [2737] 
01111000,0011111000 

720 PLOT -10,-10,11:TAG:MOVE 498, [5078] 
368 :PRINT alil$;:MOVE 498,352:PRI 
NT ali2$;:MOVE 498,336:PRINT ali3 
$ ; :TAGOFF 

730 DATA 16,1,5,16,5,5,16,7,5.16, [3041] 

9,5,16,12,5,16,14,5,16,17,5.16,24 

,5 

740 DATA 16,1,5,20,1,5,16.7,3,20, [3716] 
7,3,16,12,3,20,12,3.16,17,8,20,17 
.8 

750 el=12:e2=9:RESTORE 730:FOR i= [5745] 
1 TO 16 :GOSUB 760 :NEXT: GOTO 840 
760 READ X,Y,L:xl=14+(X-1)*32 :yl= [2428] 
388-(Y-1)*16 

770 IF i>8 THEN 810 [1007] 

780 FOR J=0 TO 2 STEP 2:PLOT xl.y [2455] 


1+3,el: DRAW xl + (l-l)*32,yl+j:NEXT 
790 FOR J=4 TO 6 STEP 2:PLOT xl,y 
1+3,e2:DRAW xl+(l-l)*32,yl+j:NEXT 
800 RETURN 

810 PLOT xl+4,yl+2,el: DRAW xl+4,y 
l+2-(l-l)*16 

820 PLOT xl,yl+2,e2:DRAW xl,yl+2- 
(1-1 )*16 
830 RETURN 

840 LOCATE 1,1:PRINT tr$: RESTORE 
850:FOR h=l TO 16:GOSUB 870:NEXT: 
GOTO 890 

850 DATA 16,1,16,5,20,1,20,5,16,7 
,20,7,16,9,20,9,16,12,20,12 
860 DATA 16,14,20,14,16,17,20,17, 
16,24,20,24 

870 READ x,y :PEN 12:LOCATE x,y:PR 
INT CHR$(170):PEN 9:LOCATE x.y 
880 PRINT CHR$(171):RETURN 
890 RESTORE 900:FOR h=l TO 5:READ 
ZL,YL,PL,a$:GOSUB 910 :NEXT: GOTO 



900 DATA 32,8,0,"000000",32,10,1, 
"SCORE".32,13,0,”000000",32,15,1, 
"TEMPS”,31,25,0,"CHALLENGE” 

910 A$=UPPER$(A$):FOR T=1 TO LEN( 
AS):SP=(ASC(MID$(A$,T,l)))-48 
920 IF sp<0 THEN sp=43 
930 CALL &9D00.FN LT(ZL,YL)+(T*2) 
+PL,&9D20+(SP*16):NEXT:RETURN 
940 A$=" ALI":FOR T=1 TO LEN(A$ 
):SP=(ASC(MID$(A$.T,l)))-48 
950 IF sp<0" THEN sp=43 
960 CALL &9D00,&C1CB+(T*2),&9D20+ 
(SP*16):NEXT:GOSUB 3490 
970 REM 
980 REM 
990 REM 
1000 REM 
1010 REM 

1020 GOSUB 600:ON TA GOTO 1030,10 
40.1050,1060.1070,1080.1090,1100, 
1110,1120,1130,1140,1150 
1030 RESTORE 2730:GOSUB 1170:GOTO 
1410 

1040 RESTORE 2790:GOSUB 1170:GOTO 
1410 

1050 RESTORE 2850:GOSUB 1170:GOTO 
1410 

1060 RESTORE 2910:GOSUB 1170:GOTO 
1410 

1070 RESTORE 2970:GOSUB 1170:GOTO 
1410 

1080 RESTORE 3030-.GOSUB 1170-.GOTO 
1410 

1090 RESTORE 3090:GOSUB 1170:GOTO 
1410 

1100 RESTORE 3150:GOSUB 1170:GOTO 
1410 

1110 RESTORE 3210 :GOSUB 1170:GOTO 
1410 

1120 RESTORE 3270:GOSUB 1170:GOTO 
1410 

1130 RESTORE 3330:GOSUB 1170:GOTO 
1410 

1140 RESTORE 3390:GOSUB 1170:GOTO 


[4175] 

[555] 

[2465] 

[1096] 

[555] 

[4834] 

[3113] 

[1479] 

[3520] 

[1611] 

[3477] 

[3729] 

[2706] 

[1071] 

[4127] 

[3598] 

[1071] 

[2869] 

[1736] 

[419] 

[1952] 

[419] 

[1736] 

[5084] 

[2417] 

[2779] 

[1923] 

[2767] 

[1923] 

[2063] 

[2672] 

[2063] 

[1666] 

[2063] 

[1229] 

[2005] 
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1410 

1150 TA=1:GOTO 1020 

1160 REM : : : DESSIN TABLEAU : : : 

1170 POKE &A020,0:DEF FN po(x,y)= 

&E000+(y-l)*160+(x-l)*4 

1180 ERASE JE : DIM JE<16,13):FOR H 

=1 TO 16:JE(H,1)=20:JE(H,13)=20:N 

EXT 

1190 FOR H=2 TO 12 :JE(1.H)=20:JE( 
16,H)=20: NEXT : 

1200 FOR g=l TO 12 :READ a$:FOR h= 
1 TO 15 

1210 b$=MID$(a$,h,1): IF B$="X" TH 
EN JE(H,G)=20:GOTO 1270 
1220 IF B$="G" THEN A=16:GOTO 124 
0 

1230 a=VAL(”&"+B$): IF A=0 THEN 12 
60 

1240 IF A=7 OR A=12 THEN mx=h:my= 

g 

1250 CALL &A00D.FN PO(H.G).SP(A): 

JE(H,G)=A:GOTO 1270 

1260 CALL &A00D.FN PO(H.G),&9C50: 

JE(H,G)=0 

1270 NEXT H,G 

1280 READ X,Y:POKE &A020,&AE:CALL 
&A00D.FN PO(X,Y),SP(5) 

1290 DEF FN po(x,y)=&C000+(y-l)*8 
0+(x-l)*2:POKE &A01A,8 :POKE &A01E 
,2 

1300 CLS #2:FOR G=19 TO 23:READ A 
$ : FOR H=1 TO 5 

1310 b$=MID$(a$,h,1):a=VAL("&”4b$ 

): IF A=0 THEN 1330 

1320 CALL &A00D.FN PO(H+33,G)-1,& 

9AF0+(A*16) 

1330 NEXT H,G:POKE &A01A,16:POKE 
&A01E.4 

1340 LOCATE 1,1:PRINT NR$:TTT=TTT 
-10 :tien=0 

1350 fin=0:GAN=0:AF=5 :READ tts.MU 
L : REC=TTT : GOSUB 241 ! 0:RETURN 
1360 REM ::::::::::::::::::::::: 
1370 REM : : 

1380 REM : ROUTINE PRINCIPALE : 
1390 REM : : 

1400 REM ::::::::::::::::::::::: 
1410 POKE &A020,&AE:DEF FN po(x,y 
)=&E000+(y-l)*160+(x-l)*4 
1420 EVERY 250,0 GOSUB 2470 
1430 SON=0: IF FIN=1 THEN 2540 
1440 IF INKEY(0)*INKEY(72)=0 THEN 
1510 

1450 IF INKEY(2)*INKEY(73)=0 THEN 
1640 

1460 IF INKEY(8)*INKEY< 74)=0 THEN 
1770 

1470 IF INKEY(1)*INKEY( 7 5)=0 THEN 
1890 

1480 IF INKEY(9)*INKEY(76)=0 THEN 
2050 

1490 GOTO 1430 

1500 REM : : : VERS LE HAUT : 

1510 IF je(x,y-l)>19 THEN 1430 
1520 IF TIEN=1 THEN 1580 
1530 GOSUB 1540:y=y-l:GOTO 1430 


[743] 

[1859] 

[1592] 

[3702] 


[ 2212 ] 

[2105] 

[4255] 

[1216] 

[2065] 

[921] 

[2548] 

[2282] 

[382] 

[2858] 

[2532] 


[2199] 

[2900] 

[2640] 

[ 1020 ] 

[1492] 

[3432] 

[1736] 

[419] 

[2225] 

[419] 

[1736] 

[ 2120 ] 

[492] 

[1869] 

[2029] 

[943] 

[1330] 

[838] 

[1257] 

[341] 

[881] 

[594] 

[1413] 

[1985] 


1540 CALL &A00D.FN po(x,y),sp(AF) [2057] 
:CALL &A052.FN po(x.y) 

1550 FOR 1=1 TO 3 :CALL &A05C,sp(A [1279] 
F) 

1560 FOR t=l TO 20:NEXT t:CALL &A [2294] 
06E,sp(AF):NEXT I 

1570 CALL &A05C,sp(AF):RETURN [2223] 

1580 IF 3e(x,y-l)<>0 THEN 1430 [820] 

1590 JE(X,Y)=0 :GOSUB 1540:Y=Y-1:J [3354] 
E(X,Y)=ACT 

1600 SON=SON+l: SOUND 1,40+(SON*10 [2367] 
),3,5,,,6 

1610 IF act=7+MUL THEN mx=x:my=y: [4667] 


GOTO 1510 ELSE 1510 

1620 REM : : : VERS LE BAS : : : [1275] 
1630 GOTO 1510 [397] 
1640 IF je(x,y+l)>19 THEN 1430 [788] 
1650 IF TIEN=1 THEN 1720 [1417] 
1660 GOSUB 1670:y=y+l:GOTO 1430 [1301] 


1670 CALL &A00D.FN po(x,y),sp(AF) [2057] 
:CALL &A052.FN po(x,y) 

1680 FOR 1=1 TO 3 :CALL &A07B,sp(A [1476] 
F) 

1690 FOR t=l TO 20 :NEXT t:CALL &A [2294] 
06E,sp(AF):NEXT I 

1700 CALL &A07B,sp(AF):RETURN [1288] 

1710 REM : : : :AVANCE bas [1603] 

1720 IF je(x,y+l)<>0 THEN 1430 [559] 

1730 JE(X,Y)=0:GOSUB 1670:Y=Y+1:J [1182] 
E(X,Y)=ACT 

1740 SON=SON+l:SOUND 1,40+(SON*10 [2367] 
),3,5 , , .6 

1750 IF act=7+MUL THEN mx=x:my=y: [4045] 


GOTO 1640 ELSE 1640 

1760 REM : : : A GAUCHE ::: [1052] 

1770 IF je(x-l,y)>19 THEN 1430 [598] 

1780 IF TIEN=1 THEN 1840 [1409] 

1790 GOSUB 1800:x=x-l:GOTO 1430 [2098] 


1800 CALL &A00D.FN po(x,y),sp(AF) [2596] 
:add=FN po(x,y) 

1810 FOR 1=1 TO 3 :CALL &A00D,add- [1631] 
I.sp(AF) 

1820 FOR t=l TO 20:NEXT t:CALL &A [3227] 

00D,add-I,sp(AF):NEXT I 

1830 CALL &A00D,add-4,sp(AF):RETU [1800] 

RN 

1840 IF je(x-l,y)<>0 THEN 1430 [818] 

1850 JE(X,Y)=0:GOSUB 1800:X=X-1:J [1853] 
E(X,Y)=ACT 

1860 SON=SON+l:SOUND 1,40+(SON*10 [2367] 
). 3.5 . , ,6 

1870 IF act=7+MUL THEN mx=x:my=y: [4182] 


GOTO 1770 ELSE 1770 

1880 REM : : : A DROITE ::: [1375] 
1890 IF je(x+l,y)>19 THEN 1430 [1206] 
1900 IF TIEN=1 THEN 1960 [1417] 
1910 GOSUB 1920:x=x+l:GOTO 1430 [1801] 


1920 CALL &A00D.FN po(x,y),sp(AF) [2596] 
:add=FN po(x,y) 

1930 FOR 1=1 TO 3:CALL &A00D,add+ [1370] 
I.sp(AF) 

1940 FOR t=l TO 20 :NEXT t:CALL &A [2536] 

00D,add+I,sp(AF):NEXT I 

1950 CALL &A00D,add+4,sp(AF):RETU [3125] 

RN 

1960 IF jeCx+l,y)<>0 THEN 1430 [942] 
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1970 JE(X,Y)=0 :GOSUB 1920:X=X+1:J [2639] 
E(X,Y)=ACT 

1980 S0N=S0N+1: SOUND 1,40+(SON*10 [2367] 
). 3 , 5 ,, ,6 

1990 IF act=7+MUL TEEN mx=x:my=y: [3801] 
GOTO 1890 ELSE 1890 


2000 REM ::::::::::::::::::::::: [1736] 

2010 REM : [419] 

2020 REM : PRISE / LACHER [1603] 

2030 REM : [419] 

2040 REM [1736] 

2050 IF JE(X,Y)<7 OR JE(X,Y)>17 T [1850] 

HEN 1430 

2060 IF TIEN=1 THEN 2130 [1415] 


2070 ENT 3,100,-50,30:SOUND 1,600 [1406] 
■10,6,0,3 

2080 CALL &A00D.FN PO(X,Y).SP(AF) [3068] 
:CALL &A00D.FN PO(X,Y),SP(6) 

2090 CALL &A090.FN PO(X,Y):TIEN=1 [2454] 
2100 ACT=JE(X, Y) :WHILE INKEY$o ,,M [1419] 
:WEND 

2110 FOR T=1 TO 500:NEXT:AF=20:GO [2413] 
TO 1430 

2120 REM : : : LACHER : : : [317] 

2130 ENT 3,100,-50.30:SOUND 1,600 [1406] 
,10.6,0,3 

2140 CALL &A00D.FN PO(X,Y),SP(6): [2675] 
CALL &A00D.FN PO(X,Y),SP(5) 

2150 TÏEN=0:WHILE INKEY$<>"":WEND [1159] 


2160 GOSUB 2220 :AF=5:GOTO 1430 [1518] 

2170 REM ::::::::::::::::::::::: [1736] 
2180 REM : : [419] 

2190 REM : MOLECULE CORRECTE ? : [1304] 

2200 REM : : [419] 

2210 REM ::::::::::::::::::::::: [1736] 


2220 DATA -1,0,-1.-1,0,-1,1,-1,1, [2082] 

0 , 1 , 1 , 0 , 1 ,- 1,1 

2230 DATA -2,-1,-2,0,-2,1,2,-1,2, [2260] 

0 . 2,1 

2240 tout=0:RESTORE 2220:FOR h=l [1933] 
TO 14 :READ px.py 

2250 px=px+mx:py=py+my:sm=je(px,p [2501] 

y) 

2260 IF sm<7 OR SM>16 THEN tot=0 [3202] 
ELSE tot=sm*h 

2270 tout=tout+tot:NEXT:TOUT=TOUT [2594] 
+JE(MX,MY) 

2280 ±F TOUT=TTS THEN FIN=1:GAN=1 [2058] 


2290 RETURN [555] 

2300 REM [1736] 

2310 REM : [419] 

2320 REM : GESTION COMPTEURS : [2235] 

2330 REM : [419] 

2340 REM ::::::::::::::::::::::: [1736] 


2350 IF sc=0 THEN a$="000000":ZL= [2425] 
32 :YL=8:GOSUB 910:RETURN 
2360 a$=STR$(sc):A$=RIGHT$(A$,LEN [2868] 
(A$)-1) 

2370 IF sc<10 THEN ZL=36:YL=8:GOS [2766] 
UB 910:RETURN 

2380 IF sc<100 THEN ZL=35:YL=8:GO [3486] 
SUB 910:RETURN 

2390 IF sc<1000 THEN ZL=34:YL=8:G [2136] 
OSUB 910:RETURN 

2400 ZL=33:YL=8:GOSUB 910:RETURN [912] 
2410 IF REC=0 THEN a$="000000":ZL [1740] 


=32 :YL=13:GOSUB 910:RETURN 

2420 a$=STR$(REC):A$=RIGHT$(A$,LE [2806] 

N(A$)-1) 

2430 IF REC<10 THEN ZL=33:YL=13: a [2307] 

$="000"+a$:GOSUB 910:RETURN 

2440 IF REC<100 THEN ZL=33:YL=13: [4483] 

a$= "00"+a$:GOSUB 910-.RETURN 

2450 IF REC<1000 THEN ZL=33:YL=13 [1853] 

:a$="0"+a$:GOSUB 910:RETURN 


2460 REM : : : : TEMPO [448] 

2470 DI :REC=REC-5 :GOSUB 2410 [845] 

2480 IF REC<5 THEN FIN=1: El :RETUR [3633] 
N ELSE El:RETURN 

2490 REM ::::::::::::::::::::::: [1736] 

2500 REM : : [419] 

2510 REM : GAGNE/PERDU : [1324] 

2520 REM : ; [419] 

2530 REM ::::::::::::::::::::::: [1736] 

2540 FOR H=0 TO 3:MU=REMAIN(H): NE [2096] 
XT 

2550 IF gan=0 THEN 2620 [638] 

2560 FOR H=1 TO 16 : BORDER h:SOUND [3415] 
1,h*15,10,14:FOR t=l TO 200 
2570 NEXT t,h:BORDER 0 [2440] 


2580 ENV 10,15,-1,1:FOR H=1 TO IN [3773] 

T(REC/5):sc=sc+l:GOSUB 2350 

2590 SOUND 1,0,15,15,10,,15:NEXT: [3944] 

REM CLAUDE TEL 96 38 94 24 

2600 TA=TA+1:REC=0:GOSUB 2410:GOT [1738] 

O 1020 

2610 REM : : : PERDU : : : [1027] 

2620 BORDER 26:INK 0,26:SOUND 4.1 [2203] 
500,50,7,0,0,10 

2630 FOR t=l TO 4000:NEXT t:BORDE [2617] 
R 0 : INK 0,0 

2640 SOUND 1,239,20,6 : SOUND 1,0,2 [7574] 
,6 : SOUND 1,239,20,6 : SOUND 1.319,2 
0.6:SOUND 1.213,20,6 : SOUND 1,239, 

40,6:SOUND 1,319,20,6 

2650 PEN 11:FOR H=1 TO 5:LOCATE 1 [7462] 

8,3:PRINT CHR$(214):FOR T=1 TO 40 

0 :NEXT T :LOCATE 18,3* PRINT CHR$(2 

13):FOR T=1 TO 200:NEXT T.H 

2660 FOR T=1 TO 2000:NEXT T:TA=TA [3646] 

-1:ttt=ttt+10:GOTO 2600 


2670 fin=l:gan=0:RETURN [960] 

2680 REM ::::::::::::::::::::::: [1736] 

2690 REM : : [419] 

2700 REM : DATA 12 TABLEAUX : [1172] 

2710 REM : ; [419] 

2720 REM ::::::::::::::::::::::: [1736] 


2730 DATA XXXXXXXXXXXXXXX,XXI1111 [4344] 

XXXXXXXX.XXI00 0111111XXX 

2740 DATA XX1092000001XXX.XX10200 [3031] 

07001XXX,XX10200003301XX 

2750 DATA XX10000203001XX,XX10000 [2720] 

203001XX,XX113B3000001XX 

2760 DATA XXX1000000001XX,XXX1111 [3916] 

111111XX,XXXXXXXXXXXXXXX 

2770 DATA 6,6,00000,05130,00000,0 [1803] 

0000,00000,63,0 

2780 REM : : : TAB 2 : : : [329] 

2790 DATA XXXXXXXXXXXXXXX,X44444X [4198] 
XXXXXXXX,X40004XXX44444X 
2800 DATA X400B333330084X,X400200 [2591] 
0000034X,X4020003700004X 
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2810 DATA X4000000000004X,X400000 [3479] 

0030004X,X4900033333334X 

2820 DATA XI11111XXXXXXXX,XXXXXXX [3880] 

XXXXXXXX,XXXXXXXXXXXXXXX 

2830 DATA 8,6,00000,00200,05130,0 [1457] 

0000,00000,87,0 

2840 REM : : : TAB 3 : : : [623] 

2850 DATA XXXXXXXXXXXXXXX,X22222X [4496] 

XXXXXXXX,X300B3XXXXXXXXX 

2860 DATA X3000322222222X,X300030 [2619] 

0071003X,X3010300000103X 

2870 DATA X3000000000003X.X300000 [3048] 

0100003X,X3000000A01803X 

2880 DATA X3011100000103X.X300910 [3037] 

0222222X,X2222222XXXXXXX 

2890 DATA 6,7,00000,00200,05130,0 [1996] 

0400,00000,157,0 

2900 REM : TAB 4 : : : [569] 

2910 DATA XXXXXXXXXXXXXXX,XXXXXXX [3521] 

X323232X,X32323XX200003X 

2920 DATA X20003XX300C02X,X30F023 [3574] 

2300003X,X2000000000002X 

2930 DATA X30003232300032.X204000 [2986] 

00200003,X30G0000E3000D2 

2940 DATA X23232323200032,XXXXXXX [3193] 

XX323232,XXXXXXXXXXXXXXX 

2950 DATA 5,7,00000,0A070,00600,0 [1834] 

9080,00000,300,5 

2960 REM : : : TAB 5 : : : [545] 

2970 DATA XXXXXXXXXXXXXXX,X44444X [4652] 

XXXXXXXX,X40004XXXXXXXXX 

2980 DATA X400C4444444XXX,X400020 [2857] 

0020444X,X4020000029004X 

2990 DATA X4000000020004X,X400222 [3298] 

0020204X,X4000000D00004X 

3000 DATA X4000000200204X.X444444 [3001] 

000B2F4X,XXXXXX44444444X 

3010 DATA 5,7,00000,00073,00600,5 [2191] 

9000,00000,413.5 

3020 REM : : : TAB 6 : : : [679] 

3030 DATA XXXXXXXXXXXXXXX,XXXI212 [3415] 

1212XXXX,XXX20000001XXXX 

3040 DATA XXX1000B002XXXX,XXX2000 [2963] 

33333333.XXX121000C4D002 

3050 DATA X212B2000440001,X1F0010 [2603] 

00000002,X20002003333333 

3060 DATA X100000000E00C2,X2000G0 [2767] 

00000001,X44444444444444 

3070 DATA 7,7,00000,5A007,00660,5 [1860] 

9008,00000,469,5 

3080 REM : : : TAB 7 : : : [591] 

3090 DATA XXXXXXXXXXXXXXX,Xll1111 [3284] 

111111XX,X170000090001XX 

3100 DATA XI00020220001XX,XI02020 [1909] 

000001XX,X1000000001111X 

3110 DATA X111110A2080B1X,X108000 [2853] 

0202001X,XI10220000007IX 

3120 DATA XI000000001111X,XI70000 [3581] 

02A1XXXX,X111111111XXXXX 

3130 DATA 6,3,00000,02200,51113,0 [2155] 

4400,00000,330,0 

3140 REM : : : TAB 8 : : : [664] 

3150 DATA XXXXXXXXXXXXXXX,X333333 [4336] 
33333XXX,X3000004F003XXX 
3160 DATA X300400000C3XXX,X300404 [2589] 
444033XX,X30G4040E4003XX 


3170 DATA X304400004D03XX,X3C0000 [3476] 

004003XX,X3004000000F3XX 

3180 DATA X300440000443XX,X300G40 [3369] 

000003XX,X333333333333XX 

3190 DATA 6,3,00000,0AA07,00660,0 [1646] 

9908.00000,729,5 

3200 REM : : : TAB 9 : : : [640] 

3210 DATA XXXXXXXXXXXXXXX,X444444 [3453] 

44444444,X4F030000000004 

3220 DATA X4G030000000004.X4C0300 [1863] 

00000004,X4C030000000004 

3230 DATA X47030000000004,X480300 [2980] 

00000004,X40000000000004 

3240 DATA X40000000000004,X49A300 [2806] 

00000004,X44444444444444 

3250 DATA 6,3,00000,A0020,06613,9 [2370] 

0040,00000,577,5 

3260 REM : : TAB 10 : : : [724] 

3270 DATA XXXXXXXXXXXXXXX,X333333 [3249] 

33333333.XX400829002CB4X 

3280 DATA XXX4000220004XX,XXXX4A0 [3001] 

02074XXX,XXXXX400004XXXX 

3290 DATA XXXXXX4004XXXXX,XXXXXX4 [3184] 

004XXXXX,XXXXX400004XXXX 

3300 DATA XXXX400000A4XXX.'XXX4800 [2809] 

200074XX,X33333333333333 

3310 DATA 4,3,00000.02020,51613,0 [2060] 

4040,00000,469,5 

3320 REM : : : TAB 11 : : : [732] 

3330 DATA XXXXXXXXXXXXXXX,XXXXXXX [4752] 

XXXXXXXX,XXXX3444443XXXX 

3340 DATA XXXX1C77881XXXX,XXXX1AA [2653] 

9B01XXXX,XXXX1DEFG01XXXX 

3350 DATA XXXX1010101XXXX,XXXX122 [3178] 

2221XXXX.XXXX3444443XXXX 

3360 DATA XXXXXXXXXXXXXXX.XXXXXXX [4457] 

XXXXXXXX.XXXXXXXXXXXXXXX 

3370 DATA 8,7,00000,2A072,13651,4 [1881] 

9084,00000,943,5 

3380 REM : : : TAB 12 : : : [772] 

3390 DATA XXXXXXXXXXXXXXX,XI11111 [3263] 

1111111X,XI20000000002IX 

3400 DATA X1000C77880001X,X1000AA [3023] 

9B00001X,X10000DEFG0001X 

3410 DATA XI000000000001X,X100000 [2716] 

0000001X.X1000000000001X 

3420 DATA X1000000000001X.X120000 [3088] 

0000021X,X1111111111111X 

3430 DATA 8,7,00000.2A072.13651,4 [1881] 

9084,00000,943,5 


3440 REM ::::::::::::::::::::::: [1736] 

3450 REM : [419] 

3460 REM : PRESENTATION [1647] 

3470 REM : : [419] 

3480 REM ::::::::::::::::::::::: [1736] 

3490 a$=" LA MOLECULE”:ZL= [2254] 

1 :YL=1:GOSUB 910 

3500 a$=” :::::::::::”:ZL= [3302] 

1:YL=2:GOSUB 910 


3510 a$=" EN VOUS SERVANT DES AT [3118] 
OMES”:ZL=1:YL=4:GOSUB 910 
3520 a$=”DISSEMINES DANS CHAQUE E [3004] 
CRAN":ZL=1:YL=6:GOSUB 910 
3530 a$="A VOUS DE RECONSTITUER [4605] 
LA":ZL=1:YL=8:GOSUB 910 
3540 a$="MOLECULE DONT LE SCHEMA [1945] 
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VOUS":ZL=1:YL=10:GOSUB 910 
3550 a$="EST FOURNI<":ZL=1:YL=l2: 
GOSUB 910 

3560 a$=" POUR CELA VOUS UTILIS 
EREZ":ZL=1 :YL=14 :GOSUB 910 
3570 a$=”LE TELEPORTEUR<":ZL=1:YL 
=16:GOSUB 910 

3580 a$=" LA FIN D>UN DEPLACEMEN 

T NE":ZL=1:YL=18:GOSUB 910 

3590 a$="POUVANT SE FAIRE QU>APRE 

S LA":ZL=1:YL=20:GOSUB 910 

3600 a$="RENCONTRE D>UN OBSTACLE< 

":ZL=l:YLs22:GOSUB 910 

3610 a$=" BONNE CHANCE":ZL 

=1:YL=24:GOSUB 910 

3620 WHILE INKEY$=”":WEND:MU=REMA 

IN(1):RETURN - 

3630 DIM b(62): RESTORE 3640:FOR n 

=1 TO 62 :READ b(n):NEXT 

3640 DATA 239,179., 179,179,142.159 

,179,159,142,179,179,142,119,106, 

106,106,119,142,179,159,179,159,1 

42,179,213,213,239,179,179,106,11 

9,142,142,179,159,179,159,106,119 

,142,142,119,106,106,106,89,119,1 

42,142.179,159,179,159,142,179,21 

3,213,239,179,179,179,0 

3650 ENV 1,1 ,15,1,5,~3,2:ENV 2,15 

,-1,10:ENT-1,10,-1,1 :ENT-2,1,-127 

,1,5,24,1 

3660 EVERY 10,1 GOSUB 3870 
'3670 TR$=CHR$(23)+CHR$(1):NR$=CHR 
$(23)+CHR$(0) 

4 3680 INK 0,0:INK 15,6:BORDER 0:MO 
DE 0:FOR A=1 TO 14:INK A,26-A:NEX 
T 

43690 FOR A=0 TO PI STEP 0.05:X=SI 
N(A)*40:PLOT 320+X,200+COS(A)*40, 
1 :DRAWR -X*2,0:NEXT 
+3700 PLOT 470,50:P=2:FOR A=PI/2 T 
O 2.5*PI STEP 0.09:X=SIN(A)*150 : Y 
=COS(A)*60 : DRAW 320+X+Y,200+Y-X.P 
:P=P+1+14*(P=15):GOSUB 3740:NEXT 
* 3710 P=2: PLOT 260,260:FOR A=0 TO 
2*PI STEP 0.045:X=SIN(A)*150 :Y=CO 
S(A)*60 : DRAW 320-X-Y,200+Y-X.P:P= 


9700:F3 F3 F3 F3 F3 F3 F3 E6 : 5B 

9708:F3 9C 79 CC F3 9C 79 CC:7B 

9710:F3 9C 79 CC F3 9C 79 CC:83 97C0:F3 

9718:F3 9C 79 CC F3 9C 79 CC:8B 97C8:B6 

9720:F3 9C 79 CC F3 9C 79 CC:93 97D0:B6 

9728:F3 9C 79 CC F3 9C 79 CC:9B 97D8:F3 

9730:F3 9C 79 CC F3 9C 79 CC:A3 97E0:F3 

9738:F3 F3 F3 CC E6 CC CC CC:EB 97E8:B6 

9740:F3 F3 F3 F3 F3 F3 F3 E6 : 9B 97F0:B6 

9748:F3 F3 F3 CC F3 F3 F3 CC:37 97F8:F3 

9750:F3 9C 79 CC F3 9C 79 CC:C3 9800:0C 

9758:F3 9C 79 CC F3 9C 79 CC:CB 9808:08 

9760:F3 9C 79 CC F3 9C 79 CC:D3 9810:08 

9768:F3 9C 79 CC F3 9C 79 CC:DB 9818:08 

9770:F3 F3 F3 CC F3 CC CC CC:64 9820:08 

9778:E6 CC CC CC CC CC CC CC:D9 9828:08 

9780:F3 F3 F3 F3 F3 F3 F3 E6:DB 9830:08 

9788:B7 3D 3D 6C B6 3E 3E 6E:DB 9838:08 

9790:B7 3D 3D 6C B6 3E 3E 6E:E3 9840:00 

9798:B7 3D 3D 6C B6 3E 3E 6E:EB 9848:54 

97A0:B7 3D 3D 6C B6 3E 3E 6E:F3 9850:A8 

97A8:B7 3D 3D 6C B6 3E 3E 6E:FB 9858:A8 

97B0:B7 3D 3D 6C B6 3E 3E 6E:03 9860:A8 

97B8-.E6 CC CC CC CC CC CC CC:19 9868 :A8 
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P+1+14*(P=15):GOSUB 3740:NEXT 
'3720 P=2: PLOT 390,200:FOR A=0 TO [5069] 
2*PI STEP 0.0225:X=SIN(A)*170:Y=C 
OS(A)*70 : DRAW 320+Y,200+X,P :P=P+1 
+14*(P=15):GOSUB 3740 :NEXT: GOTO 3 
750 

'3730 FOR A=2 TO 14:INK A,26:CALL [3523] 
&BD19: INK A,0 :NEXT: GOTO 3730 
3740 IF p=15 THEN p=8:RETURN ELSE [2371] 
RETURN 

: 3750 ORIGIN 0,0:INK 4,0:PLOT -10, [2125] 
-10,4:a$="LA MOLECULE" 

3760 ENC=1:EN2=15:Y=330:X=124:GOS [2275] 
UB 3790 

! 3770 PEN 15:LOCATE 10,19:PRINT TR [3906] 
$;"BY":a$="CLAUDE LE MOULLEÇ" 

I 3780 PLOT -10,-10,1:TAG:MOVE 46,4 [5043] 
0 :PRINT A$: : PLOT -10,-10,15:MOVE 
50,36:PRINT A$;:TAGOFF:PRINT NR$: 

GOTO 3840 

f 3790 TAG:FOR H=1 TO LEN(A$):B$=MI [3104] 
D$(A$,H,1):MOVE (H*36)-36,14 :PRIN 
T B$; :NEXT:TAGOFF 

/3800 FOR G=0 TO 14 STEP 2:FOR H=0 [1911] 
TO 432 STEP 2 

;3810 IF TEST(H,2+G)=4 THEN PLOT H [3439] 
+X,Y+(G*2),ENC: PLOT H+X.Y+2+(G*2) 

, EN2 

13820 NEXT H.G:LOCATE 1,25:PRINT S [3898] 
PACE$(18): INK 4,26:RETURN 
'3830 PLOT H+X,Y+(G*2),ENC:PLOT H+ [1582] 
,X.Y+2+(G*2).EN2 :RETURN 
3840 a=l [327] 

3850 a=a+l: IF a>14 THEN a=2 [1842] 

3860 INK A,2 6 :CALL &BD19:INK A.0: [3783] 
a$=INKEY$: IF a$="" THEN 3850 ELSE 
RETURN 

3870 qq=qq+l: IF qq=62 THEN qq=l:w [2097] 
=1 

3880 IF qq=32 THEN w=3 [276] 

3890 SOUND 4,b(qq),19,14 :w=w+l: IF [6656] 
w=5 THEN SOUND 2,0,10,15,2,0,2:w 
=1:RETURN ELSE SOUND l,w*150,6,15 
.1,2,2:RETURN 

3900 RETURN [555] 
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98E8: 04 0C 0C 08 
98F0: 00 0C 0C 00 
98F8: 00 51 0A 00 
9900:00 04 F3 00 
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9910:04 0C 0C 59 
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00 33 67 00:47 
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00 3F 0C 00:CE 
15 0C 0C 08:5A 
2E 0C AE 0C:CD 
2E 0C AE 0C: 40 
04 5B FF 08:73 
00 0C 0C 00 :7C 
00 04 08 00:14 
00 51 0A 00 :7C 
00 0C 59 A2:41 
04 0C 0C F3:AD 
04 5D FF 59:50 
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04 0C AE 59:33 
04 0C 0C 59:58 
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A2 

92 

9D60 

00 

15 

00 

3F 

00 

CF 

45 

45 

08 

9FE0 

00 

00 

00 

00 

00 

00 

00 

00 

7F 

9AE8 

cc 

F0 

E4 

A2 

cc 

CC 

CC 

A2 

CA 

9D68 

04 

0C 

00 

04 

00 

55 

00 

00 

2F 

9FE8 

00 

00 

00 

00 

00 

00 

00 

00 

87 

9AF0 

44 

CC 

D9 

00 

44 

CC 

D9 

0A 

4C 

9D70 

15 

3F 

15 

00 

45 

00 

00 

CF 

B0 

9FF0 

00 

00 

00 

00 

00 

00 

00 

00 

8F 

9AF8 

00 

D9 

A2 

2F 

00 

00 

00 

15 

8E 

9D78 

00 

04 

04 

04 

55 

FF 

00 

00 

DC 

9FF8 

00 

00 

00 

00 

00 

00 

00 

00 

97 

9B00 

05 

A2 

05 

A2 

93 

63 

IB 

73 

01 

9D80 

15 

3F 

15 

15 

45 

00 

45 

CF 

F7 

A000 

7C 

C6 

08 

67 

D0 

D5 

11 

50 

61 

9B08 

B3 

27 

93 

63 

51 

0A 

51 

0A 

41 

9D88 

04 

04 

04 

04 

55 

FF 

00 

00 

F0 

A008 

C0 

19 

DI 

C9 

00 

DD 

5E 

00 

Fl 

9B10 

51 

A2 

F3 

0C 

A6 

0C 

0C 

0C 

83 

9D90 

15 

3F 

00 

15 

00 

45 

00 

8A 

02 

A010 

DD 

56 

01 

DD 

6E 

02 

DD 

66 

1D 

9B18 

0C 

0C 

0C 

0C 

05 

A2 

05 

A2 

43 

9D98 

00 

08 

04 

00 

55 

00 

00 

00 

FA 

A018 

03 

06 

10 

C5 

E5 

06 

04 

IA 

94 

9B20 

04 

A2 

04 

F3 

86 

59 

A6 

59 

El 

9DA0 

15 

3F 

15 

15 

45 

45 

45 

CF 

B5 

A020 

AE 

77 

13 

23 

10 

F9 

El 

CD 

D6 

9B28 

0E 

59 

86 

59 

04 

0C 

04 

08 

31 

9DA8 

04 

04 

04 

04 

55 

FF 

00 

00 

10 

A028 

00 

A0 

Cl 

10 

EE 

C9 

00 

00 

E7 

9B30 

51 

0A 

51 

0A 

0C 

0C 

0C 

0C 

83 

9DB0 

15 

3F 

15 

15 

45 

45 

45 

CF 

C5 

A030 

00 

00 

DD 

6E 

00 

DD 

66 

01 

1F 

9B38 

0C 

0C 

A6 

0C 

F3 

0C 

51 

A2 

67 

9DB8 

00 

04 

00 

04 

55 

FF 

00 

00 

10 

A038 

06 

10 

AF 

77 

CD 

00 

A0 

10 

C8 

9B40 

51 

08 

F3 

08 

A6 

49 

A6 

0D 

IB 

9DC0 

00 

00 

00 

00 

00 

00 

00 

00 

5D 

A040 

F9 

C9 

7C 

D6 

08 

67 

CB 

74 

F6 

9B48 

A6 

59 

A6 

49 

0C 

08 

04 

06 

19 

9DC8 

00 

08 

00 

00 

00 

AA 

00 

00 

71 

A048 

C0 

D5 

11 

B0 

3F 

19 

DI 

C9 

15 

9B50 

B2 

71 

IA 

25 

75 

BA 

75 

BA 

09 

9DD0 

00 

00 

00 

00 

00 

00 

00 

00 

6D 

A050 

55 

El 

DD 

6E 

00 

DD 

66 

01 

56 

9B58 

75 

BA 

75 

BA 

IA 

25 

B2 

71 

E9 

9DD8 

00 

08 

00 

00 

00 

AA 

55 

00 

D4 

A058 

22 

50 

A0 

C9 

2A 

50 

A0 

CD 

38 

9B60 

00 

88 

44 

CC 

44 

CC 

44 

CC 

5F 

9DE0 

00 

00 

00 

00 

00 

00 

00 

00 

7D 

A060 

42 

A0 

CD 

42 

A0 

CD 

42 

A0 

AD 

9B68 

44 

CC 

44 

CC 

0A 

88 

A2 

00 

AB 

9DE8 

00 

00 

00 

08 

00 

AA 

00 

00 

Al 

A068 

CD 

42 

A0 

22 

50 

A0 

2A 

50 

B7 

9B70 

A2 

00 

0A 

88 

44 

CC 

44 

CC 

43 

9DF0 

00 

00 

00 

00 

00 

00 

00 

00 

8D 

A070 

A0 

DD 

5E 

00 

DD 

56 

01 

CD 

48 

9B78 

44 

CC 

44 

ce 

44 

ce 

00 

88 

47 

9DF8 

00 

00 

00 

08 

00 

AA 

55 

00 

04 

A078 

19 

A0 

C9 

2A 

50 

A0 

CD 

00 

5F 

9B80 

00 

51 

44 

05 

CC 

88 

CC 

88 

9D 

9E00 

00 

2A 

00 

2A 

45 

00 

00 

00 

F3 

A080 

À0 

CD 

00 

A0 

CD 

00 

A0 

CD 

A3 

9B88 

CC 

88 

CC 

88 

CC 

88 

44 

00 

8B 

9E08 

00 

00 

00 

00 

00 

00 

00 

00 

A6 

A088 

00 

A0 

C3 

6B 

A0 

00 

00 

00 

7D 

9B90 

44 

00 

CC 

88 

CC 

88 

ce 

88 

F3 

9E10 

00 

2À 

15 

15 

45 

45 

00 

45 

B4 

A090 

11 

00 

A4 

DD 

6E 

00 

DD 

66 

02 

9B98 

CC 

88 

CC 

88 

44 

05 

00 

51 

8D 

9E18 

00 

08 

00 

00 

00 

AA 

00 

00 

C2 

A098 

01 

06 

10 

C5 

E5 

06 

04 

7E 

32 

9BA0 

00 

00 

00 

00 

00 

E7 

00 

00 

A5 

9E20 

00 

2A 

00 

2A 

00 

8A 

00 

8A 

46 

A0A0 

12 

13 

23 

10 

FA 

El 

CD 

00 

E4 

9BA8 

_00 

00 

00 

E7 

00 

00 

00 

00 

DF 

9E28 

00 

08 

00 

00 

00 

AA 

00 

00 

D2 

A0A8 

A0 

Cl 

10 

EF 

C9 

00 

00 

00 

43 
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Alignez-vous... 


MANO NÉGRA 


Savez-vous réussir un Yol? 

En d'autres termes, êtes-vous capable 
d'aligner dans un sens quelconque, 

3 Zors de couleur identique? 



C e jeu de pure stratégie, 
réclame un sang-froid 
hors pair. L'action consis¬ 
te à disposer judicieusement, 
afin de constituer des aligne¬ 
ments, les pions multicolores 
qui chutent de rangées verti¬ 
cales. Ne vous y fiez pas, on 
est très vite débordé!.. 

Sauvegarde 

Sauvez sous un nom de votre 
choix, le programme Basic 
principal. Entrez ensuite par 
Amsaisie V:2 en vous reportant 
à son mode d’emploi, les deux 


listings de codes hexadéci¬ 
maux. 


Nom Adr. déb. Long 

MANOSPR1 &8000 &D68 
MANOROUT &9D20 &35C 


La longueur est ici précisée à 
l'attention de ceux qui envisa¬ 
gent de morceler leur travail 
en plusieurs fichiers qui 
devront ultérieurement être 
réunis en deux fichiers défini¬ 
tifs. 

Claude Le Moullec 


10 REM ::::::::::::::::::::::: [1736] 

20 REM : : [419] 

30 REM : MANO NEGRA : [619] 

40 REM : : [419] 

50 REM ::::::::::::::::::::::: [1736] 

60 REM : : [419] 

70 REM : LMC SOFTWARE * [538] 

80 REM : Claude LE MOULLEC [2031] 


90 REM : [419] 

100 REM ::::::::::::::::::::::: [1736] 

110 REM : [419] 

120 REM : REDEFINITION : [1622] 

130 REM : : [419] 

140 REM ::::::::::::::::::::::: [1736] 

150 SYMBOL AFTER 169 [1435] 


160 SYMBOL 170,170,170.170,170,17 [2823] 
0,170,170,170 

170 SYMBOL 171,0,84,84,84,84,84,8 [1597] 
4,0 

180 SYMBOL 201,0,0,0,0,1,1,0,1 [1667] 

190 SYMBOL 202,14,31,123,245,226, [2905] 
255,127,103 

200 SYMBOL 203,128,224,192,224,25 [3220] 
2,255,255,224 

2Î.0 SYMBOL 204,0,0,0,58,239,255,2 [2001] 
54,188 

220 SYMBOL 205,3,3,1.0,1,3,15,62 [1814] 

230 SYMBOL 206,108,113,191,220,17 [2683] 
9,119,127,248 

240 SYMBOL 207.15.252,128,0,192,2 [2530] 
24 253 195 

250 SYMBOL 208.240,0.0,0,0,0,0,12 [1947] 
8 

260 SYMBOL 209,124,249.0.0,0,0,0, [1555] 
0 

270 SYMBOL 210,231,223,0,0,0,0,0, [2016] 
0 

280 SYMBOL 211,63,255,0,0,0,0,0,0 [2345] 
290 SYMBOL 212,192,192,0,0,0,0,0, [1836] 
0 

300 SYMBOL 213,254,188,94.47,255. [2394] 
255,126,192 

310 SYMBOL 214,254,252.30,15,255, [2281] 
193,0,0 

320 MEMORY &7FFF:LOAD "IMANOSPRI" [1098] 


,&8000 

330 LOAD "IMANOROUT"«&9D20 [1427] 

340 REM ::::::::::::::::::::::: [1736] 

350 REM : [419] 

360 REM : VARIABLES DE BASE : [2081] 

370 REM : : [419] 

380 REM ::::::::::::::::::::::: [1736] 

390 DEFINT a-z:MODE 0 : BORDER 0 [1453] 


400 RESTORE 410:FOR h=0 TO 15:REA [1813] 
D a:INK h,a:NEXT 

410 DATA 0,1,15,5,3,22,14,7,16,9, [1985] 
13,24,18,23,26,6 

420 DEF FN pt(x,y)=&C000+(y-1)*80 [2454] 
+(x-l)*2 

430 DEF FN po(x,y)=&E003+(y-l)*80 [1359] 
+(x-l)*7 

440 DIM sp(15):FOR h=0 TO 10:sp(h [3664] 
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PROGRAMMATION 


+1)=&8BEE+(h*42):NEXT 
450 DIM je(9,26):DIM cx(2000):DIM 
cy(2000): DIM cp(2000) 

460 FOR H=1 TO 5 :JE(H,19)=10:NEXT 
470 FOR h=l TO 9:je(h,25)=10:je(h 
,26)=10:je(h,19)=10:je(h,18)=10:N 
EXT 

480 FOR h=18 TO 26 :je(1,h) = 10:je( 
2,h)=10:je(9,h)=10:je(8.h)=10:NEX 
T 

490 ali3$ =CHR$(2 0 9)+CHR$(210)+CHR 
$(211)+CHR$(212) 

500 ali2$=CHR$(205)+CHR$(206)+CHR 
$(207)+CHR$(208) 

510 alil$=CHR$(201)+CHR$(202)+CHR 
$(203)+CHR$(204) 

520 tr$=CHR$(22)+CHR$(1):nr$=CHR$ 
(22)+CHR$(0) 

530 ENT 2,200,20,5:BUT=0:VIE=3 
540 ON BREAK GOSÜB 2850 
550 REM 

560 REM : : 

570 REM : DESSIN DECOR : 

580 REM : : 

590 REM ::::::::::::::::::::::: 
600 POKE &A01A,165:POKE &A01E.16: 
CALL &A00D.FN pt(2,2)-1,&8000 
610 POKE &A01A,6 9 :POKE &A01E,6:CA 
LL &A00D.FN pt(27„5).&8A50 
620 FOR h=128 TO 140 STEP 4:PLOT 
h,0,0:DRAW h,400:NEXT 
630 PLOT 128,1,10:DRAW 128,398:DR 
AW 414,398:DRAW 414,1:DRAW 128,1: 
PLOT 128,3:DRAW 414,3:PLOT 128,39 
6:DRAW 414,396 

640 PLOT 132,5,6:DRAW 132,394:DRA 
W 410,394:DRAW 410,5:DRAW 132,5:P 
LOT 132,7:DRAW 410,7:PLOT 132,392 
:DRAW 410,392 

650 PLOT -10,-10,11:TAG:MOVE 498, 
368 :PRINT alil$;:MOVE 498,352:PRI 
NT ali2$;:MOVE 498.336:PRINT ali3 
$ ; :TAGOFF 

660 DATA 16,1,5,16.5,5,16.8,5,16, 

10,5,16,13,5,16,15,5,18.18 

670 DATA 3.18,20,3,16,22,3,16,24. 

3,16,1,5,20,1,5,16,8.3.20 

680 DATA 8,3,16,13,3,20,13,3,18,1 

8,3,20.18,3,16.22,3,18.22,3 

690 el=10:e2=6:RESTORE 660:FOR i= 

1 TO 20 :GOSÜB 700 :NEXT: GOTO 780 

700 READ X,Y,L:xl=14+(X-l)*32:yl= 

388-(Y-1)*16 

710 IF i>10 THEN 750 

720 FOR J=0 TO 2 STEP 2:PLOT xl,y 

1+j,el:DRAW xl+(l-l)*32,yl+j:NEXT 

730 FOR J=4 TO 6 STEP 2:PLOT xl,y 

1+j.e2: DRAW xl+(l-l)*32,yl+j:NEXT 

740 RETDRN 

750 PLOT xl+4,yl+2,el: DRAW xl+4,y 
1+2-(1-1)*16 

760 PLOT xl,yl+2,e2:DRAW xl,yl+2- 
(1-1)*16 
770 RETURN 

780 LOCATE 1,1:PRINT tr$: RESTORE 
790:FOR h=l TO 20:GOSÜB 810:NEXT: 


[2824] 

[1313] 

[3360] 


[3770] 


[2257] 

[2118] 

[3744] 

[1849] 

[2535] 

[755] 

[1736] 

[419] 

[1958] 

[419] 

[1736] 

[2681] 

[2723] 

[2757] 

[5171] 


[3547] 


[5078] 


[2885] 

[2513] 

[2824] 

[3830] 

[2428] 

[1058] 

[2455] 

[4175] 

[555] 

[2465] 

[1096] 

[555] 

[4715] 


GOTO 830 

790 DATA 16,1,16,5,20,1,20,5,16,8 [3014] 

.20,8,16,10,20,10,16,13,20,13 

800 DATA 16,15,20,15,18,18,20,18, [1874] 

18,20,20,20,16,22,18.22,16,24,18, 

24 

810 READ x,y :PEN 9:LOCATE x,y:PRI [3811] 
NT CHR$(170):PEN 12:LOCATE x,y 
820 PRINT CHR$(171):RETURN [1611] 

830 RESTORE 840:FOR h=l TO 9:READ [4407] 
ZL,YL,mo,a$:GOSÜB 850 :NEXT:GOTO 
940 

840 DATA 32 ,9,0,"'000000" ,32,11,1, [7666] 
"SCORE",32,14,0,"000000",36,19,0, 

"00",32,23,0,"00",36,23,1,"YOL".3 
0,19,0,"VIE",30,6,1,"ALI GATOR",3 


2,16,0,"RECORD" 

850 A$=ÜPPER$(A$):FOR T=1 TO LEN( [2706] 
A$):SP=(ASC(MID$(A$,T,1)))-48 
860 IF SP<0 OR SP>43 THEN SP=43 [1734] 

870 CALL &9D20.FN PT(ZL,YL)+(T*2) [3746] 
+MO,&9D40+(SP*16):NEXT 
880 RETURN [555] 

890 REM ::::::::::::::::::::::: [1736] 

900 REM : : [419] 

910 REM : DEBUT DE PARTIE : [1477] 

920 REM : ; [419] 

930 REM [1736] 

940 GOSÜB 2870 [901] 

950 BUT=BUT+1 [801] 


960 TA=(BUT*7):TA1=TA:GOSÜB 2550: [2127] 
GOSÜB 2570 

970 VIT1=200-TA:IF VIT1<100 THEN [1775] 
VIT1=100 

980 VIT2=50-(BÜT*3): IF VIT2<27 TH [2424] 
EN VIT2=27 

990 GOSÜB 2830:A$="EPREUVE NR"+ST [4188] 
R$(BUT):ZL=11:YL=13:GOSÜB 850 
1000 RESTORE 2720:GOSÜB 2690:FOR [4133] 
T=1 TO 4000:NEXT:GOSÜB 2830:GOSÜB 
2790 

1010 FIN=0:PER=0:PEL=0:POKE &A01A [2075] 
,7 :POKE &A01E.6 

1020 CALL &A00D.FN po(5,19).sp<9) [1614] 
:xj=5:yj=16 

1030 c=INT(RND*8)+l:x=INT(RND*5)+ [4824] 
3:CALL &A00D.FN po(x,1),sp(c) 

1040 cx(l)=x:cy(l)=1:cp(l)=c:cc=l [2462] 


:dp=l 

1050 REM ::::::::::::::::::::::: [1736] 

1060 REM : [419] 

1070 REM : ROÜTINE PRINCIPALE : [2225] 

1080 REM : : [419] 

1090 REM [1736] 

1100 EVERY VIT1.3 GOSÜB 1380 [1529] 

1110 EVERY VIT2.2 GOSÜB 1410 [1800] 

1120 IF PEL=4 THEN 1350 [582] 

1130 IF fin=l THEN DI:GOTO 2270 [689] 


1140 IF INKEY(8)*INKEY(74)=0 AND [2582] 
xj>3 THEN 1190 

1150 IF INKEY(1)*INKEY(75)=0 AND [1457] 
xj<7 THEN 1220 

1160 IF INKEY(9)*INKEY(76)=0 THEN [1257] 
1250 

1170 GOTO 1120 [347] 

1180 REM : : : A GAUCHE : [1052] 
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1190 DI :CALL &A04B.FN po(xj-l.yj) [2724] 
,FN po(xj,yj):xj=xj-l 

1200 FOR t=l TO 30 :NEXT: SOUND 1,1 [1893] 
00,2,5 : El : GOTO 1120 

1210 REM : : : A DROITE : : : [1375] 

1220 DI ; CALL &A04B.FN po(xj+l,yj) [4305] 
,FN po(xj,yj):xj=xj+1 
1230 FOR t=l TO 30:NEXT:SOUND 1,1 [1893] 
00 ; 2,5 : El :GOTO 1120 

1240 REM : : : LACHER : : : [317] 

1250 DI:IF pel=0 THEN EI:GOTO 112 [2611] 
0 

1260 A=0: FOR H=1 TO PEL:IF JE(XJ, [2488] 
19+H)<>0 THEN A=1 

1270 NEXT:IF A=1 THEN SOUND 1,150 [2659] 
,15,7 :El:GOTO 1120 

1280 CALL &A00D.FN po(xj,19),sp(9 [1635] 
) 

1290 FOR h=l TO pel:p=pl(h):CALL [2733] 
&A00D.FN po(xj,19-h),SP(P) 

1300 FOR g=20 TO 24:IF je(xj,g)=0 [1946] 
THEN a=g 

1310 NEXT:CALL &A00D.FN po(xj,a), [2305] 
sp(p):je(xJ,a)=p 

1320 GOSUB 1620:NEXT h:CALL &A00D [3052] 
,FN po(xj,19),sp(9) 

1330 PEL=0: El : GOTO 1120 [845] 

1340 REM 4 ZORS SUR LA RAQUETTE [1258] 
1350 A=0: FOR H=1 TO 4 : IF JE(XJ,19 [2639] 
+H)<>0 THEN A=1 

1360 NEXT:IF A=1 THEN fin=l:PER=l [4316] 
: GOTO 1280 ELSE 1280 

1370 REM : APPARITION D’UN ZOR : [1858] 

1380 DI :c=INT(RND*8)+l:x=INT(RND* [2932] 
5)+3:CALL &A00D.FN po(x,1),sp(c) 

1390 cc=cc+l:cx(cc)=x:cy(cc)=l:cp [1885] 
(cc)=c:EI:RETURN 

1400 REM :: CHUTE DES ZORS :: [2353] 

1410 DI:FOR h=dp TO cc [874] 

1420 xl=cx(h):yl=cy(h):p=cp(h) [1785] 
1430 CALL &A032.FN po(xl,yl):yl=y [2269] 
1+1:IF yl=16 THEN 1460 
1440 CALL &A00D.FN po(xl,yl).sp(p [2326] 
):cy(h)=yl 

1450 NEXT:El :RETURN [861] 

1460 IF xl=xj THEN 1520 [1206] 

1470 IF je(xl,20)<>0 THEN CALL &A [4107] 
00D.FN po(xl,19),sp(p):fin=l:PER= 


1:GOTO 1450 

1480 dp=dp+l:FOR g=20 TO 24 : IF je [4027] 
(xl,g)=0 THEN a=g 

1490 NEXT:CALL &A00D.FN po(xl.a). [3274] 
sp(p):je(xl,a)=p 

1500 GOSUB 1610:GOTO 1450 [1308] 

1510 REM CHUTE SUR LA RAQUETTE [1917] 

1520 dp=dp+l:pel=pel+l [2473] 

1530 CALL &A00D.FN po(xl.19-pel), [3002] 
sp(p):pl(pel)=p:GOTO 1450 
1540 REM ::::::::::::::::::::::: [1736] 

1550 REM : : [419] 

1560 REM : ALGORITHME POUR : [1312] 

1570 REM : CALCUL D'ALIGNEMENT : [1039] 

1580 REM : (quel boulot I) : [1291] 

1590 REM : [419] 

1600 REM ::::::::::::::::::::::: [1736] 

1610 XF=X1:YF=A: GOTO 1630 [1419] 


1620 XF=XJ:YF=A 

1630 IF JE(XF,YF+1)=P AND JE(XF,Y 
F+2)=P THEN 1820 

1640 IF JE(XF+1,YF)=P AND JE(XF+2 
,YF)=P THEN 1740 

1650 IF JE(XF-1,YF)=P AND JECXF-2 
,YF)=P THEN 1780 

1660 IF JE(XF-1,YF)=P AND JE(XF+1 

,YF)=P THEN XF=XF-1:GOTO 1740 

1670 IF JE(XF-1,YF-1)=P AND JE(XF 

-2,YF-2)=P THEN 1850 

1680 IF JE(XF+1,YF+1)=P AND JE(XF 

+2,YF+2)=P THEN 1890 

1690 IF JE(XF+1,YF-1)=P AND JE(XF 

+2,YF-2)=P THEN 1930 

1700 IF JE(XF-1,YF+1)=P AND JE(XF 


-2,YF+2)=P THEN 1970 

1710 IF JECXF+l,YF-1)=P AND JE(XF 

-1,YF+1)=P THEN 2010 

1720 IF JE(XF-1,YF-1)=P AND JE(XF 

+1,YF+1)=P THEN 2050 

1730 RETURN 

1740 JE(XF,YF)=0:COX=XF:GOSUB 214 


1750 JE(XF+1,YF)=0:COX=XF+1:GOSUB 
2140 

1760 JECXF+2,YF)=0:C0X=XF+2:GOSUB 
2140 

1770 TA=TA-1 :GOSUB 2570:IF TA=0 T 
HEN FIN=1:RETURN ELSE RETURN 
1780 JE(XF,YF)=0:COX=XF:GOSUB 214 
0 

1790 JECXF-l,YF)=0:COX=XF-1:GOSUB 
2140 

1800 JE(XF-2,YF)=0:C0X=XF-2:GOSUB 
2140 

1810 TA=TA-1:GOSUB 2570:IF TA=0 T 
HEN FIN=1:RETURN ELSE RETURN 


1820 JE(XF,YF)=0:JE(XF, YF+1 )=0 : -JE 
(XF,YF+2)=0 

1830 COX=XF:GOSUB 2140 
1840 TA=TA-1 :GOSUB 2570:IF TA=0 T 
HEN FIN=1:RETURN ELSE RETURN 
1850 JE(XF,YF)=0:COX=XF:GOSUB 214 


[937] 

[ 2102 ] 

[2007] 

[3039] 

[2748] 

[2284] 

[1491] 

[2365] 

[1770] 

[1820] 

[2983] 

[555] 

[1626] 

[1592] 

[1019] 

[2763] 

[1626] 

[2525] 

[2612] 

[2763] 

[3254] 

[1167] 

[2763] 

[1626] 


1860 JE(XF-1,YF-1)=0:C0X=XF-1:GOS [1845] 
UB 2140 

1870 JE(XF-2,YF-2)=0:C0X=XF-2:GOS [2975] 
UB 2140 

1880 TA=TA-1 :GOSUB 2570:IF TA=0 T [2763] 
HEN FIN=1:RETURN ELSE RETURN 
1890 JE(XF,YF)=0:COX=XF:GOSUB 214 [1626] 
0 

1900 JE(XF+1,YF+1)=0:C0X=XF+1:GOS [1730] 
UB 2140 

1910 JE(XF+2,YF+2)=0:C0X=XF+2:GOS [1552] 
UB 2140 

1920 TA=TA-1:GOSUB 2570:IF TA=0 T [2763] 
HEN FIN=1:RETURN ELSE RETURN 
1930 JE(XF,YF)=0:COX=XF:GOSUB 214 [1626] 
0 

1940 JE(XF+1,YF-1)=0:COX=XF+1:GOS [2692] 
UB 2140 

1950 JE(XF+2,YF-2)=0:C0X=XF+2:GOS [2434] 
UB 2140 

1960 TA=TA-1:GOSUB 2570:IF TA=0 T [2763] 
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HEN FIN=1:RETURN ELSE RETURN 

1970 JE(XF,YF)=0 :COX=XF:GOSUB 214 [1626] 

0 

1980 JE(XF-1,YF+1)=0:COX=XF-1:GOS [3337] 
UB 2140 

1990 JECXF-2,YF+2)=0:COX=XF-2:OOS [2641] 
UB 2140 

2000 TA=TA-1:GOSUB 2570:IF TA=0 T [2763] 

HEN FIN=1:RETURN ELSE RETURN 

2010 JE(XF.YF)=0:COX=XF:GOSUB 214 [1626] 

0 

2020 JECXF+l,YF-1)=0:COX=XF+l:GOS [2692] 
UB 2140 

2030 JECXF-l,YF+1)=0:COX=XF-1:GOS [3337] 
UB 2140 

2040 TA=TA-1:GOSUB 2570:IF TA=0 T [2763] 

HEN FIN=1:RETURN ELSE RETURN 

2050 JE(XF,YF)=0:COX=XF:GOSUB 214 [1626] 

0 

2060 JECXF-l,YF-1)=0:COX=XF-l:GOS [1845] 
UB 2140 

2070 JE(XF+1,YF+1)=0:COX=XF+l:GOS [1730] 
UB 2140 

2080 TA=TA-1 :GOSUB 2570:IF TA=0 T [2763] 


HEN FIN=1:RETURN ELSE RETURN 
2090 REM ::::::::::::::::::::::: [1736] 

2100 REM : : [419] 

2110 REM : MISE A JOUR COLONNE : [1137] 

2120 REM : : [419] 

2130 REM ::::::::::::::::::::::: [1736] 


2140 POKE &A06F,40 :CALL &A06E.FN [2863] 
po (COX,20):POKE &A06F.32 
2150 G1=0: FOR 1=24 TO 20 STEP -1 [1692] 

2160 IF JE(COX,I)=0 THEN 2170 ELS [3330] 
E G1=G1+1:G(G1)=JE(C0X,I) 

2170 NEXT [350] 

2180 IF G1=0 THEN RETURN [1135] 

2190 FOR H5=20 TO 24:JE(COX,H5)=0 [2882] 
:NEXT 

2200 FOR 1=1 TO G1:CALL &A00D.FN [2705] 
POCCOX.25-I),SP(G(I)) 

2210 JECCOX,25-I)=G(I):NEXT:RETUR [1235] 
N 


2220 REM ::::::::::::::::::::::: [1736] 

2230 REM : : [419] 

2240 REM : FIN DE PARTIE : [858] 

2250 REM : : [419] 

2260 REM ::::::::::::::::::::::: [1736] 

2270 FOR H=0 TO 3 :MU=REMAIN(H):NE [2096] 
XT 

2280 RESTQRE 2670:GOSUB 2690 [1762] 

2290 ERASE JE,CX,CY,CP : DIM je(9,2 [2724] 
6):DIM cx(2000):DIM cy(2000):DIM 
cp(2000) 

2300 IF PER=1 THEN 2350 [911] 

2310 FOR H=1 TO TA1:SC=SC+ 5 :ENV 1 [3429] 
0,15,-1,1 : SOUND 1,0.15.15,10. .15 
2320 GOSUB 2430:NEXT: IF SC>REC TH [3948] 
EN REC=SC:GOSUB 2490 

2330 El : GOTO 950 [321] 

2340 REM : : PERDU : : : [1027] 

2350 VIE=VIE-1:BUT=BUT-1: IF SC>RE [3288] 
C THEN REC=SC:GOSUB 2490 
2360 SC=0:GOSUB 2430:IF VIE=0 THE [1800] 
N BUT=0:VIE=3 

2370 El:GOTO 950 [321] 


2380 REM :::::::::::::::::::::: [1661] 

2390 REM : : [419] 

2400 REM : GESTION SCORES : [1349] 

2410 REM : : [419] 

2420 REM :::::::::::::::::::::: [1661] 


2430 IF sc=0 THEN a$="000000":ZL= [2483] 
32:YL=9:GOSUB 850:RETURN 
2440 a$=STR$(sc):A$=RIGHT$(A$,LEN [2868] 
(A$)-1) 

2450 IF sc<10 THEN ZL=35:YL=9:GOS [3048] 
UB 850:RETURN 

2460 IF sc<100 THEN 2L=34:YL=9:GO [2041] 
SUB 850:RETURN 

2470 IF sc<1000 THEN ZL=33:YL=9:G [2172] 
OSUB 850:RETURN 

2480 ZL=32:YL=9:GOSÜB 850:RETURN [2194] 
2490 IF REC=0 THEN a$=”000000":ZL [2264] 
=32:YL=14:GOSUB 850:RETURN 
2500 a$=STR$(REC):A$=RIGHT$(A$,LE [2806] 
N(A$)-1) 

2510 IF REC<10 THEN ZL=35:YL=14:G [2332] 
OSUB 850:RETURN 

2520 IF REC<100 THEN ZL=34:YL=14: [3185] 
GOSUB 8 50:RETURN 

2530 IF REC<i000 THEN ZL=33:YL=14 [1937] 
:GOSUB 850:RETURN 

2540 ZL=32:YL=14:GOSUB 850:RETURN [1660] 
2550 a$=STR$(vie):A$=RIGHT$(A$,LE [1991] 
N(A$)-1) 

2560 ZL=37:YL=19:GOSUB 850:RETURN [2079] 
2570 a$=STR$(ta):A$=RIGHT$(A$,LEN [1517] 
(A$)-1) 

2580 SOUND 1,150,50.7,0,2:1F ta<l [2185] 
0 THEN A$=" "+A$ 

2590 IF TA<100 THEN ZL=32:YL=23: G [3340] 
OSUB 850.• RETURN' 

2600 ZL=3l:YL=23:GOSUB 850:RETURN [2629] 


2610 REM :::::::::::::::::::::: [1661] 

2620 REM : [419] 

2630 REM : SOUS PROG DIVERS : [1142] 

2640 REM : [419] 

2650 REM :::::::::::::::::::::: [1661] 

2660 REM : : : MUSIQUES : : : [1065] 


2670 DATA 1,213,2,1,0,1,1,213,1,1 [5592] 

.0.1,1,213;1.1,0,1.17.169,1.10,21 

3,1,1.0,1.1.213,1,1.0,1,17,169,1, 

10,213,1,1,0,1.49,142,1.42.169.1, 

28,213,1 

2680 DATA 1,0,1,49,106,2,42,142,2 [6794] 
,28,169,2,1,0,1.49,106.1.42,142,1 
,28,169,1,1,0,1,49,106,1,42,142,1 
,28,169,l,i,0,1,49,106,4,42,142,4 
,28,169,4,1,0,1,0,0,0 

2690 ca=l:WHÎLÉ ca<>0 [1244] 

2700 READ ca,p,z: SOUND ca,p,z*l0, [2058] 
15 

2710 WEND:RETURN [935] 

2720 DATA 49,159,2,42,190,2,28,23 [1045] 
9,2 

2730 DATA 17,190,1,10,239,1,49,17 [7440] 
9,2,42,213,2,28,239,2,49,159,4,42 
,190,4,28,239.4,49,159.2,42,190.2 
,28,239,2,49,142,2.42.179,2,28.23 
9,2,49,159,2,42,190,2,28,239,2,49 
142 2 42 179 2 

2740'DATA 28,239,2,49,134,2,42,15 [8999] 
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9.2.28.201.2.17.159.1.10.201.1.49 
,150,1,42,179,1,28,201,1,49,134,4 
,42,159,4.28.201,4,49,134,2,42,15 

9.2.28.201.2.49.119.2.42.150.2.28 
,201,2,49.134,2,42,159,2 

2750 DATA 28.201,2,49,119,2,42,15 [6855] 

0.2,28,201,2,49,113,4.42,134,4.28 

.169,4.49,113,1,42.134,1,28,169,1 

,49,134,1,42,169,1,28,239,1,49,11 

3,2,42,134,2,28,169.2,49,106,4,42 

,134,4.28,179,4 

2760 DATA 49,106,1,42.134,1,28,17 [7892] 

9.1.49.134.1.42.179.1.28.213.1.49 
,106,2,42,134,2,28,179,2,49,106,4 
,42,127,4,28.159,4,49,106,1,42.12 

7.1.28.159.1.49.127.1.42.159.1.28 
.213,1 

2770 DATA 49,106,2.42,127.2.28,15 [7693] 

9.2.49.100.4.42.127.4.28.169.4.49 
,100.1,42'. 127,1,28,169,1,49,127.1 
,42.169,1,28,201,1,49,100,2,42,12 
7,2,28.169,2,49,95,10,42.127,10,2 
8,150,10,0,0,0 

2780 REM AFFICHER AIRE DE JEU [1144] 
2790 FOR h=184 TO 400 STEP 56:PLO [3784] 
T h,392,9:DRAW h,9:PLOT h+4,392,1 
2:DRAW h+4,9:NEXT 

2800 FOR g=376 TO 150 STEP -16:FO [3450] 


R h=156 TO 400 STEP 56:PLOT h.g.l 

3 : DRAW h+8,g:NEXT h,g 

2810 RETURN [555] 

2820 REM EFFACE AIRE DE JEU [1921] 

2830 POKE &A039,192 :POKE &A03D.34 [1552] 

2840 CALL &A032,&E011:POXE &A039, [3070] 

7:POKE &A03D.6:RETURN 

2850 FOR Mü=0 TO 3 :L=REMAIN(MU):N [4928] 

EXT :MODE 2:INK 1,24:PEN 1 :END 

2860 REM : : EXPLICATIONS : : [1370] 

2870 GOSUB 2830 :RESTORE 2720:GOSU [1691] 

B 2690 

2880 RESTORE 2910:FOR h=l TO 12:R [2666] 


EAD a$ 

2890 zl=9:yl=h*2:GOSUB 850 [2127] 

2900 NEXT:CALL &BB18:RETURN [1238] 

2910 DATA " MANO NEGRA " [1243] 

2920 DATA "" [208] 

2930 DATA " UN YOL CE N>EST" [1288] 

2940 DATA "QUE 3 ZORS DE LA" [1024] 

2950 DATA "MEME COULEUR QUE" [1203] 

2960 DATA "TU ALIGNES DANS" [319] 

2970 DATA "LE SENS QUE TU" [1175] 

2980 DATA "VEUX<" [426] 

2990 DATA " COMBIEN DE YOLS" [275] 

3000 DATA "FERAS-TU ?" [916] 

3010 DATA "" [208] 

3020 DATA " BONNE CHANCE" [1147] 


6828:0» 0 
8038:00 0 


J 00 10 30 20 00 4 
l 00 00 00 00 00 ( 
3 00 30 03 30 00 ( 


8050:00 00 0 


8:00 00 30 03 0 


0 21 03 03 0 
8078:00 00 21 03 03 0 


L 03 03 03 03 1 
L 03 03 03 03 3 




IA 02 
03 03 
IA 02 


84E0 

84E8 

84F0 


25 

03 


12 

03 


03 


03 


03 


03 


03 


03 


21 

03 

21 


03 03 12 12 12 
0F 0F 0F 0F 0F 
03 03 12 21 21 
0F 0F 0F 0F 0F 
03 03 12 30 12 
0F 01- 0F 0F 0F 
03 03 12 21 30 


03 03 03 21 03 


25 0F 0F 0F 21 
03 03 21 03 03 
12 0F 0F IA 03 
03 03 21 03 03 
03 25 0F 21 03 
03 12 21 03 03 
.03 25 0F 21 03 
03 12 03 03 03 
03 12 IA 03 03 
03 21 03 03 03 
03 03 30 03 03 
03 21 03 03 03 
03 03 03 03 03 
30 03 03 03 07 
03 03 03 03 03 
30 12 03 03 0B 
03 03 03 03 03 
21 12 03 07 03 
03 03 03 03 20 
21 03 03 03 03 
03 03 03 00 00 
03 03 03 03 '03 
03 21 03 07 03 
03 03 03 02 00 
03 03 03 03 03 
03 03 03 03 00 
03 12 03 03 03 

03 03 03 03 03 
03 03 03 03 02 
03 03 12 03 03 


03 03 03 21 03 
32 25 0F 0F 21 
03 03 30 12 03 
25 0F 0F 0F 21 
03 03 21 21 03 
25 0F 0F 0F IA 
03 03 12 12 03 






12 0F 0F 
03 03 03 
03 25 0F 
03 03 03 
03 12 0F 
03 03 03 


00 21 03 
03 30 03 


03 12 30 
20 00 10 
30 03 03 

20 01 30 

21 03 03 
30 12 0F 
25 07 25 
30 25 0F 
30 12 30 
21 25 0F 
21 03 03 
21 25 0F 
30 03 03 
03 25 0F 

03 25 0F 
10 30 03 
03 12 0F 
10 30 03 
03 12 0F 
10 30 21 
03 02 30 


0F 0F 0F 21 
03 12 30 21 
0F '0F IA 03 
03 03 03 30 
0F 0F IA 03 
03 03 03 12 
0F 0F 21 03 
03 03 03 03 

03 03 03 12 
0F 21 03 03 
03 03 03 12 
IA 03 03 02 
03 03 03 12 
30 03 03 02 
03 03 03 03 
03 03 03 02 
03 03 03 03 


03 IA 30 30 
30 30 12 20 
03 30 03 03 
0F 0F 21 20 
30 03 03 03 
0F 0F 21 30 
03 03 03 03 
0F 0F IA 30 


0F 0F 21 30 
03 03 03 30 
0F 0F 21 30 
03 03 12 30 
30 30 03 30 
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8760 

8768 

8770 

6778 

8780 


8890 

86A0 


30 30 03 03 12 
03 03 03 03 03 
30. 30 03 03 12 
03 03 03 03 03 
10 30 03 03 12 
03 03 03 03 03 
10 30 23 03 22 
03 03 03 03 12 
00 30 21 03 12 
03 03 03 03 12 
00 30 30 03 12 
03 03 03 03 20 
00 10 30 03 12 
03 03 03 12 20 
00 20 30 21 30 
03 12 30 20 00 
00 00 30 21 30 
00 00 30 21 30 

00 00 30 30 30 
12 30 20 00 00 
00 00 10 30 30 
12 30 20 00 00 
00 00 10 30 30 
30 30 20 00 00 
00 00 10 30 30 


30 30 00 00 00 
00 00 00 30 21 
00 00 00 00 00 



00 00 00 30 21 
30 30 30 00 00 
00 00 00 10 21 

00 00 00 10 21 
03 30 30 00 00 
00 00 00 00 21 
03 30 30 20 00 
00 00 00 00 21 
03 12 30 20 00 



00 00 00 00 10 
03 12 10 30 30 
00 00 00 00 10 
03 21 12 30 30 


03 03 03 03 12 30 3 
00 00 00 00 00 00 0 
03 03 07 03 12 30 3 


21 03 03 03 03 03 03 S 
00 00 00 00 00 00 00 £ 
21 03 03 03 03 03 03 G 
00 00 00 00 00 00 00 G 


SA50 

6A58 

8A60 

8A70 

6A78 

6A80 


0 00 00 10 ; 
0 00 00 10 ( 
0 21 03 03 ; 


) 12 0A 00 
1 00 21 03 
1 03 03 25 
S 25 0A 00 
1 00 21 03 
L 03 03 25 
) 25 0A 00 
1 00 21 03 
' "3 03 30 


0A 00 21 l 
21 03 03 : 
03 25 0A ( 


I 12 0 
l 00 21 03 03 1 


3 03 20 
0 10 03 
1 03 03 


03 03 03 20 


I 03 03 03 0 
1 03 03 03 2 
I 03 21 03 0 


03 03 03 
12 il 03 


8CEB 

BCF0 

8Cï'8 


8D08 

8D10 

SD18 

8D20 


3 20 00 00 30 21 
3 00 30 21 30 00 
1 30 20 00 00 00 
0 00 00 00 55 FF 
F AA EE EE EE EE 


Z 0C 0C 0C 0C 0C 
8 30 30 30 30 24 
Z 0C 0C 0C 0C 0C 
C 0C 04 0C 0C 0C 
4 CC CC CC CC 88 

Z cc cc cc cc cc 

2 CC D8 F0 F0 F0 


0 F0 F0 A0 54 FC 
C A8 FC FC FC FC 
C FC FC FC FC FC 


F CF 45 CF CF CF 
1 C3 C3 C3 C3 82 
3 C3 C3 C3 C3 C3 
3 C3 97 3F 3F 3F 
3 C3 C3 C3 C3 C3 
3 C3 C3 C3 41 C3 
3 82 40 C0 C0 C0 


2 0C 0C C 


1 C0 


9D20 

DD 

5E 

00 

DD 

56 

01 

DD 

6E 

F9 

9E40 

00 

88 

00 

88 

00 

28 

00 

28 

3E 

9F60 

44 

CC 

44 

CC 

14 

14 

14 

14 

9D28 

02 

DD 

66 

03 

06 

08 

C5 

E5 

98 

9E48 

00 

A2 

00 

00 

00 

2A 

00 

00 

26 

9F68 

51 

A2 

51 

51 

15 

15 

00 

00 

9D30 

06 

02 

IA 

77 

23 

13 

10 

FA 

62 

9E50 

44 

CC 

44 

CC 

14 

14 

14 

14 

CE 

9F70 

44 

CC 

44 

CC 

14 

00 

14 

00 

9D38 

El 

CD 

26 

B C 

Cl 

10 

EF 

C9 

A8 

PE58 

51 

F3 

51 

51 

15 

15 

00 

00 

4B 

9F78 

51 

F3 

00 

51 

15 

3F 

00 

00 

9D40 

15 

3F 

15 

3F 

45 

45 

45 

45 

AD 

9E60 

44 

CC 

44 

CC 

14 

14 

14 

14 

DE 

9F80 

44 

CC 

44 

CC 

00 

28 

00 

28 

9D48 

04 

04 

04 

04 

55 

FF 

00 

00 

B0 

9E68 

51 

A2 

51 

51 

15 

3F 

00 

00 

B5 

9F88 

00 

A2 

00 

A2 

00 

2A 

00 

00 

9D50 

00 

2A 

15 

2A 

00 

8A 

00 

8A 

B4 

9E70 

44 

CC 

44 

CC 

14 

00 

14 

00 

D6 

9F90 

44 

44 

44 

44 

14 

14 

14 

14 

9D58 

00 

08 

00 

08 

55 

FF 

00 

00 

C8 

9E78 

51 

00 

51 

00 

15 

3F 

00 

00 

3D 

9F98 

51 

51 

51 

51 

15 

3F 

00 

00 

9D60 

15 

3F 

15 

15 

00 

45 

00 

45 

E9 

9E80 

44 

88 

44 

CC 

14 

14 

14 

14 

76 

9FA0 

44 

44 

44 

44 

14 

14 

14 

14 

9D68 

00 

08 

04 

00 

55 

FF 

00 

00 

C4 

9E88 

51 

51 

51 

51 

15 

3F 

00 

00 

33 

9FA8 

51 

51 

51 

51 

00 

2A 

00 

00 

9D70 

15 

3F 

15 

15 

00 

45 

00 

45 

F9 

9E90 

44 

CC 

44 

CC 

14 

00 

14 

00 

F6 

9FB0 

44 

44 

44 

44 

14 

14 

14 

14 

9D78 

00 

0C 

00 

04 

55 

FF 

00 

00 

E0 

9E98 

51 

A2 

51 

00 

15 

3F 

00 

00 

Al 

9FB8 

51 

F3 

51 

F3 

15 

15 

00 

00 

9D80 

00 

15 

00 

3F 

00 

CF 

45 

45 

28 

9EA0 

44 

CC 

44 

CC 

14 

00 

14 

00 

06 

9FC0 

44 

44 

44 

44 

14 

14 

00 

28 

9D88 

04 

0C 

00 

04 

00 

55 

00 

00 

4F 

9EA8 

51 

A2 

51 

00 

15 

00 

00 

00 

37 

9FC8 

00 

A2 

51 

51 

15 

15 

00 

00 

9D90 

15 

3F 

15 

00 

45 

00 

00 

CF 

D0 

9EB0 

44 

CC 

44 

CC 

14 

14 

14 

00 

8E 

9FD0 

44 

44 

44 

44 

14 

14 

00 

28 

9D98 

00 

04 

04 

04 

55 

FF 

00 

00 

FC 

9EB8 

51 

00 

51 

51 

15 

3F 

00 

00 

Cl 

9FD8 

00 

A2 

00 

A2 

00 

2A 

00 

00 

9DA0 

15 

3F 

15 

15 

45 

00 

45 

CF 

17 

9EC0 

44 

44 

44 

44 

14 

14 

14 

14 

0E 

9FE0 

44 

CC 

00 

44 

00 

14 

00 

28 

9DA8 

04 

04 

04 

04 

55 

FF 

00 

00 

10 

9EC8 

51 

F3 

51 

51 

15 

15 

00 

00 

BB 

9FE8 

00 

A2 

51 

00 

15 

3F 

00 

00 

9DB0 

15 

3F 

00 

15 

00 

45 

00 

8A 

22 

9ED0 

44 

CC 

00 

88 

00 

28 

00 

28 

9A 

9FF0 

00 

00 

00 

00 

00 

00 

00 

00 

9DB8 

00 

08 

04 

00 

55 

00 

00 

00 

IA 

9ED8 

00 

A2 

00 

A2 

15 

3F 

00 

00 

25 

9FF8 

00 

00 

00 

00 

00 

00 

00 

00 

9DC0 

15 

3F 

15 

15 

45 

45 

45 

CF 

D5 

9EE0 

44 

CC 

00 

88 

00 

28 

00 

28 

AA 

A000 

7C 

C6 

08 

67 

D0 

D5 

11 

50 

9DC8 

04 

04 

04 

04 

55 

FF 

00 

00 

30 

9EE8 

00 

A2 

00 

A2 

15 

2A 

00 

00 

B7 

A008 

C0 

19 

DI 

C9 

00 

DD 

5E 

00 

9DD0 

15 

3F 

15 

15 

45 

45 

45 

CF 

E5 

9EF0 

44 

44 

44 

44 

14 

14 

14 

28 

DE 

A 010 

DD 

56 

01 

DD 

6E 

02 

DD 

66 

9DD8 

00 

04 

00 

04 

55 

FF 

00 

00 

30 

9EF8 

51 

A2 

51 

51 

15 

15 

00 

00 

49 

A018 

03 

06 

10 

C5 

E5 

06 

04 

IA 

9DE0 

00 

00 

00 

00 

00 

00 

00 

00 

7D 

9F00 

44 

00 

44 

00 

14 

00 

14 

00 

9F 

A020 

AE 

77 

13 

23 

10 

F9 

El 

CD 

9DE8 

00 

A2 

00 

00 

00 

2A 

00 

00 

C5 

9F08 

51 

00 

51 

00 

15 

3F 

00 

00 

CE 

A028 

00 

A0 

Cl 

10 

EE 

C9 

00 

00 

9DF0 

00 

00 

00 

00 

00 

00 

00 

00 

8D 

9F10 

44 

44 

44 

CC 

14 

3C 

14 

14 

6F 

A030 

00 

00 

DD 

6E 

00 

DD 

66 

01 

9DF8 

00 

A2 

00 

00 

00 

2A 

15 

00 

68 

9F18 

51 

51 

51 

51 

15 

15 

00 

00 

ce 

A038 

06 

07 

C5 

E5 

06 

06 

AF 

77 

9E00 

00 

00 

00 

00 

00 

00 

00 

00 

9E 

9F20 

44 

44 

44 

44 

14 

3C 

14 

3C 

9F 

A040 

23 

10 

FC 

El 

CD 

00 

A0 

Cl 

9E08 

00 

00 

00 

A2 

00 

2k 

00 

00 

2A 

9F28 

51 

F3 

51 

51 

15 

15 

00 

00 

IC 

A048 

10 

F0 

C9 

DD 

6E 

00 

DD 

66 

9E10 

00 

00 

00 

00 

00 

00 

00 

00 

AE 

9F30 

44 

CC 

44 

44 

14 

14 

14 

14 

8F 

A050 

01 

DD 

5E 

02 

DD 

56 

03 

06 

9E18 

00 

00 

00 

A2 

00 

2A 

15 

00 

CD 

9F38 

51 

51 

51 

51 

15 

3F 

00 

00 

E4 

A058 

20 

C5 

E5 

D5 

01 

06 

00 

ED 

9E20 

00 

88 

00 

88 

14 

00 

00 

00 

52 

9F40 

44 

CC 

44 

CC 

14 

14 

14 

14 

BF 

A060 

B0 

El 

CD 

00 

A0 

E5 

DI 

El 

9E28 

00 

00 

00 

00 

00 

00 

00 

00 

C6 

9F48 

51 

F3 

51 

00 

15 

00 

00 

00 

7A 

A068 

CD 

00 

A0 

Cl 

10 

EB 

3E 

20 

9E30 

00 

88 

44 

44 

14 

14 

00 

14 

36 

9F50 

44 

CC 

44 

CC 

14 

14 

14 

14 

CF 

A070 

32 

39 

A0 

CD 

32 

A0 

3E 

07 

9E38 

00 

A2 

00 

00 

00 

2A 

00 

00 

16 

9F58 

51 

51 

51 

51 

15 

3F 

00 

2A 

54 

A078 

32 

39 

A0 

C9 

00 

00 

00 

00 
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Les modes d'adressage (suite) 


AUTO-FORMEZ-VOUS A L'ASSEMBLEUR 68000 
(5 e partie) 


L'adressage direct étant d'ores et déjà 
connu de tous (Micro-Magn°12), passons 
au niveau supérieur, j'ai nommé 
l'adressage absolu long et court. 


Symbole Mode Symbole Mode Symbole Mode 


Dn 

Direct 

(An) 

Indirect 

dl 6 (PC) 

Indirect 

An 

Direct 

(An) + 

Indirect 

d8 (PC, Rn) 

Indirect 

(x).L 

Absolu 

-(An) 

Indirect 

SR 

Immédiat 

(x).W 

Absolu 

d16 (An) 

Indirect 

CCR 

Immédiat 

#x 

Immédiat 

d8 (An, Rn) 

Indirect 

USP 

Direct 


Les types d’adresses effectives 



n.A.vç 


$20000 

_qo ; oo 

$20001 

Avant |F F F F'F f'f F| D0 ,^■'"'$20002 

oo • oo 

$20003 

Après |F F F F'F p'o 0| D0 $20004 

oo : oo 

$20005 

Fleure 1 $20006 

oo; oo 

$20007 


y$4 

R7 

~ôo 

.M_ 

00 

$5 

$7 

$9 

$B 

Avant |F F F F'F F'F F| ^///^ 

"o6 

76 

Après |0 0 0 0’0 6'7 6| A0 58 

00 

00 

$A 

Fleure l 

00 

00 


M ais avant cela, il appa¬ 
raît nécessaire de défi¬ 
nir ce qu’est une adres¬ 
se effective. 

L'adresse effective 

On utilise cette expression 
pour désigner les opérandes 
utilisés dans les instructions 
68000. C'est ainsi qu'une adres¬ 
se effective englobe tous les 
types d’opérandes connus. 
Voyez le tableau ci-contre 
résumant les 15 différentes 
adresses effectives. 

On utilise couramment le sym¬ 
bole <ae> pour caractériser 
une adresse effective. Une ins¬ 
truction MOVE peut des lors 
s'écrire: 

MOVE.f <ae>,<ae> 

Une adresse effective sera 
donc un registre quelconque 
du 68000 ou un emplacement 
mémoire directement, voire 
indirectement défini. Reste à 
découvrir ce que signifient les 
autres opérandes. 

L'adressage absolu, 
long et court 

Nous allons faire intervenir la 
mémoire dans nos propos. En 
effet, une adresse absolue 
(valeur 32 bits) est tout simple¬ 
ment l'une des cases de nos 
mémoires. Ce n'est donc plus 
un transfert registre-registre 
qui a lieu, mais bien un échan¬ 
ge entre la mémoire interne du 
68000 qui contient les registres, 
et les mémoires externes telles 


que la RAM et la ROM. 
Voyons maintenant le format 
d'une instruction MOVE cor¬ 
respondante ; 

MOVE.f (x).f,<ae> 


Opération effectuée: 

(x).f -> <ae> 

Ça se corse ! Examinons un 
exemple concret (figure 1): 


MOVE.B $20000.L,D0 

Le (x) correspond, comme dit 
précédemment, à une valeur 
16 ou 32 bits, tandis que f cor¬ 
respond au format de cette 
adresse. L'intérêt de ce f est 
simple: pourquoi aurions-nous 
besoin de 32 bits pour dési¬ 
gner une valeur? 16 bits suffi¬ 
sent largement. Suivant la 
grandeur de l'adresse, il paraît 
normal de pouvoir choisir le 
format de celle-ci; les consé¬ 
quences seront un gain de 
vitesse et de mémoire. A ceci, 
nous indiquerons que le for¬ 
mat f consiste en 2 différentes 
valeurs. Un W indique une 
adresse codée sur 16 bits et un 
L une adresse sur 32 bits. Il est 
donc possible d’adresser la 
mémoire de ÎF80000 à 
S007FFF en utilisant le format 
16 bits (adressage absolu 
court). Si le format est de type 
long (sur 32 bits), alors l'adres¬ 
se n'est pas signée et on accède 
ainsi à la totalité de la 
mémoire (S0 à SFFFFFF). Une 
astuce: si l'adresse est codée 
sur 32 bits, le .L peut être omis. 
Le codage d'une adresse sur 8 
bits n'existe pas, donc pas de 
MOVE.L $6.B,D0. Voici un 
exemple d'utilisation d'une 
adresse 16 bits: 

MOVEA.L $4.W,A0 (figure 2) 

Quelques explications à pro¬ 
pos de ce mode d'adressage: 
Rappelez-vous que chaque 
adresse d'une mémoire externe 
contient un octet. Le 68000 
commence par déterminer 
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l'adresse effective de l'opéran¬ 
de source, ici une adresse 
absolue, puis celle de l'opéran¬ 
de destination, un registre 
d'adresses. Le 68000 fait ensui¬ 
te un accès mémoire et récupè¬ 
re, à l'adresse absolue indi¬ 
quée, le nombre d'octets défini 
dans le format f de l'instruc¬ 
tion MOVE. Enfin, il dépose 
ces valeurs dans le registre 
d'adresses. 

A ce stade, précisons qu'il 
n'est pas permis d'utiliser un 
format autre que 8 bits pour 
l'instruction MOVE, si l'adres¬ 
se absolue de l’opérande sour¬ 
ce et/ou destination est impai¬ 
re. Ainsi, MOVE.W $20001 .L, 
D0 est impossible. En d'autres 
termes, on accède à une adres¬ 
se impaire si (et seulement si) 
l'accès se fait seulement sur 8 
bits comme MOVE.B 
$455.W,D. 

D'un autre côté, on peut évi¬ 
demment utiliser l'adressage 
absolu avec un opérande de 
destination ou même avec les 
2 opérandes. Voici 2 exemples. 

MOVE.W D1,$1000.W 
MOVE.B $40000,$40001 
(figures 3 et 4) 


mémoire allant de $0000 à 
$03FF - est rempli de valeurs 
système telles les vectorisa¬ 
tions pour les exceptions, les 
interruptions, etc. Une prome¬ 
nade de santé dans les antres 
du 68000 serait donc impru¬ 
dente, tout du moins pour 
l'instant... 

Il eut été judicieux de compa¬ 
rer les temps d'exécution avec 
les modes d’adressage utilisés, 
mais réservons cela pour plus 
tard. Il faut auparavant maîtri¬ 
ser l'ensemble des modes et 
instructions du 68000. 

Le mode d'adressage 
immédiat 

L'adressage immédiat est 
caractérisé par le fait que 
l'opérande source est une 
valeur statique, fixée une fois 
pour toute à la suite du code 
opératoire de l’instruction uti¬ 
lisée. 

Instruction: MOVE.f #x,<ae> 
Opération effectuée: 

#x -> <ae> 

L'opérande source au format 


[ 0 0 0 F' 1 2'3 4| DI 


$10000 

$10002 


oo : oo 

$10001 

$10000 

1,2 

34 

FF | FE 

$10003 

$10002 

FF 

FE 


$10001 

$10003 



R.A.M._ 


R.A.M._ 


$40000 

oo; 01 

$40001 $40000 

oo : 6o 

$40001 

$40002 

02; 03 

$40003 $40002 

02 ; 03 

$40003 



Fieure 4 




Faites un petit programme de 
test (voir article précédent) et 
amusez-vous. N'omettez pas 
le RTS final après vos MOVEs, 
sous peine... d'un plantage. 
Remarquez quand même que 
le «bas» de la RAM - espace 


immédiat est stocké à l'adresse 
effective précisée par l'opéran¬ 
de destination. A noter le sym¬ 
bole «#» pour distinguer le 
mode immédiat du mode 
absolu abordé précédemment. 
Voici un exemple: 


MOVE.B #$40,D0 
(figure 5) 


Avant |0 0 0 O'O O'O 0| D0 
Après |0 O 0 O'O 0*4 0| DO 
Figure 5 

Les 3 formats B,W et L sont 
possibles. Si le format W est 
utilisé et si l’opérande destina¬ 
tion est un registre d'adresses, 
alors une extension de signe 
32 bits sera effectuée. Le for¬ 
mat B est interdit avec un 
registre d'adresse. Les valeurs 
de départ des registres et 
adresses dans nos exemples 
sont purement fortuites, elles 
servent juste à bien préciser le 
changement d'état. Testons 
ceci avec: 

MOVEA.W #$F240,A0 
(figure 6) 


Avant |0 0 0 0‘0 O'O 0| AO 

Après |F F F F'F 2'TÔ1 A0 
Figure 6 

Voyons également, à l'aide de 
2 exemples, ce que l'on obtien¬ 
drait en utilisant un nombre 
négatif: 

MOVE.W #-$5000,D0 et 
MOVE.L #-2,Dl 
(figure 7 et 8) 

Avant |0 0 0 o'o o‘o o| D0 
Après |0 0 0 O'B O'O 0| D0 
Rappel: - $5000 = $B000 



Après |F F F F'F F'F~Ë| DI 
Rappel:-$2 = $FFFFFFFE 
Figure 8 


Dernière chose: il est bien sûr 
inutile d'essayer de mettre une 
adresse effective de type 
immédiat pour l'opérande 
destination. Ceci donnerait: 
MOVE.f #x,#y ce qui, vous en 
conviendrez, n'a aucun sens. 
Le mode d'adressage immé¬ 
diat d'un opérande destination 
est donc absolument prohibé 


sous peine d'une mémorable 
exception «Illégal Instruction», 
et cela quelle que soit l'adresse 
effective de l'opérande source 
(exception faite des instruc¬ 
tions LINK et BTST en mode 
dynamique.) 

• Les flags 

Représentés par l’octet utilisa¬ 
teur (CCR) du registre SR, ils 
sont en constante «mouvan¬ 
ce». Ainsi, lorsque l'opérande 
source est nul, le flag Z (Zéro) 
sera positionné. Si l'opérande 
est négatif, le flag N sera mis à 
1. On peut donc, sans même 
faire de test de comparaison 
supplémentaire, effectuer un 
branchement. 

• L'adressage immédiat 
accéléré 

Il existe en effet une variante 
du mode immédiat. Il s'agit 
d'utiliser une instruction de 
type MOVEQ (contraction de 
MOVE-Quick). Dans ce cas, 
l'opérande source est obliga¬ 
toirement immédiat et l'opé¬ 
rande destination un registre 
de données. La valeur source 
est un nombre compris entre - 
128 et +127, le 68000 effectue 
une extension 32 bits avant de 
stocker la valeur finàle dans 
Dn. L'intérêt de cette instruc¬ 
tion semble limité au premier 
abord, mais elle met très peu 
de temps à être exécutée et 
l'opérande source est stocké 
dans le code opératoire même 
de l'instruction. Voici un 
exemple de comparaison : 
MOVEQ #120,D0 et MOVE.L 
#120,D0 donnent un résultat 
rigoureusement identique. 

1- l'instruction MOVEQ occu¬ 
pe 2 octets en RAM, et deman¬ 
de 4 cycles d’exécution. 

2- l'instruction MOVE.L, elle, 
occupe 6 octets, et 12 cycles 
pour son exécution. 

L'important chez un program¬ 
meur étant l'optimisation (tant 
en vitesse qu'en mémoire) de 
son programme, nous vous 
incitons plus que jamais à 
choisir au mieux vos instruc- 
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tiens, afin de réaliser un pro¬ 
gramme tendant vers la per¬ 
fection, encore très rare de nos 
jours... 

Il n’est pas trop tard pour 
expliquer ce qu'est un cycle: 
La fréquence d'un 68000 clas¬ 
sique est 7.16 Mhz, c'est-à-dire 
qu'il se produit 7160000 fronts 
d'horloge par seconde. Ces 
fronts étant obtenus à l'aide 
d'un oscillateur ainsi que d'un 
circuit externe de décodage. 
L'exécution des instructions 
est fixé par rapport à un 
nombre défini de cycles. Vous 
imaginez facilement que plus 
le 68000 a d'accès mémoire à 
faire, plus le nombre de cycles 
sera élevé. Si, en revanche, il a 
juste quelques opérations à 
réaliser avec ses registres, 
alors la vitesse sera d'autant 
plus rapide. En moyenne, une 
instruction 68000 met 20 cycles 
à être exécutée, le 68000 peut 
donc exécuter 358000 instruc¬ 
tions par seconde. Et encore, il 
est gêné en temps normal par 
le DMA qui lui «pique» pas 
mal de cycles dans ses accès à 
la RAM. Une adresse effective, 
à elle seule, peut occuper jus¬ 
qu'à 16 cycles (sans considérer 
le DMA), alors que l'utilisation 
de registres internes amène un 
temps d'exécution presque 


Une fois l’instruction tapée, 
quelle que soit l'adresse où 
elle se trouve logée, son exécu¬ 
tion sera possible sans modifi¬ 
cation préalable. D'où une 
puissance du 68000 qui ne ces¬ 
sera de s'accroître, vous le ver- 


instruction générale: 

MOVE.f <ae>,(An) 

Opération effectuée: 

<ae> -> (An) 

Ah, du nouveau sur le front 
de l'adressage, nous aperce¬ 
vons effectivement que l’opé¬ 
rande destination est «entre 
parenthèses». C'est en fait 
pour une raison simple: A 
quoi sert un registre 
d'adresses? A adresser!... Bien! 
Il contient donc une valeur 32 
bits indiquant l'adressé où le 
68000 ira faire son travail. 
Cette instruction est radicale¬ 
ment différente du MOVE.f 
<ae>,An. Cette dernière char¬ 
ge dans An une certaine 
valeur calculée à partir de 
l'adresse effective de l'opéran¬ 
de source. Avec l'adressage 
indirect, ce n'est pas An qui 
sera modifié, mais l'emplace¬ 
ment mémoire sur lequel il 
pointe. Pour clarifier ceci, 
voici un exemple concret. 


0 0 0 2'0 O'O 0| AO lo 0 0 2'0 0*0 2| AO 



$20001 $20000 
$20003 $20002 

Fieure 10 " 


$20001 

$20003 


|0 0 0 2'0 O'O o| AO | 0 0 0 2' 0 0' 0 4| A0 


$15000 

$15002 

$20000 

$20002 


12! 34 

$15001 

$15000 

12 ! 

34 

56 j 78 

$15003 

$15002 

56 ; 

78 

00! 00 

$20001 

$20000 

12 ; 

34 

00; 00 

$20003 

$20002 

56 ; 

78 


$15001 

$15003 

$20001 

$20003 


2,$20000 reviendrait au 
même). Avec l'adressage indi¬ 
rect, le 68000 occupe 24 cycles 
et seulement 20 avec l'adres¬ 
sage absolu. 

Donc, c'est en contradiction 
avec ce qui a été dit plus haut, 
mais il faut savoir que dans le 
1er cas, le registre AO est 
conservé et utili¬ 
sable pour un pro¬ 
chain accès, ce qui 
est différent du 
second cas où 


MOVE.W #$1234,(A0)+ ; for¬ 
mat W donc A0 <- AO+2 
MOVE.L $15000,(A0)+ ; for¬ 
mat L donc AO <- AO+4 
(figures 10 et 11) 

Ce type d'adressage est forte¬ 
ment utilisé lorsqu'il s'agit de 
«boucles», par exemple : 


MOVE.L #$30000,AO ; A0=$30000 

MOVEQ #10,00 ; 10+1 fois 

L00P: MOVE.B D0,(A0)+ ; transfert 

DBF DO.LOOP ; bouclage 


RTS 




|0 0 0 2'0 O'O 0| A0 | 0 0 0 2'0 O'O o| A0 


Suite à ce programme, le 






Adressage indirect de 

contenu en mémoire sera le 

$20000 

00! 01 

$20001 $20000 

FF! FE 

$20001 

registre d'adresses avec 

$30000 -> 10 

$20002 

02; 03 

$20003 $20002 

02 j 03 

$20003 

postincrémentation 

$30001 -> 9 


Avant 

Fieure 9 

Après 


Instruction MOVE: 

$30003 -> 7 






MOVE.f <ac>,(An)+ 

S30004 -> 6 


immédiat. 11 est de ce fait 
déconseillé d'utiliser à tort et à 
travers l'adressage absolu. On 
lui préférera en. effet l'adressa¬ 
ge indirect, plus rapide et plus 
court en mémoire. 

Mode d'adressage 
indirect de registre 
d'adresses 

La spécification «indirect» 
désigne en fait le caractère 
dynamique de l’adressage. 


MOVE.L #S20000,A0 ; -> 
A0=$20000 

MOVE.W #SFFFE,(A0) ; -> 
$20000 <- SFF, $20001 <- $FE 
(figure 9) 

Notez au passage que ceci ne 
modifie en rien l'état de An. 
Le flag N sera positionné suite 
à ces 2 instructions. 

Maintenant que nous connais¬ 
sons l'adressage absolu, nous 
pourrions effectuer la même 
opération que la précédente : 
MOVE.W #$FFFE,$20000.L 
(notez que taper MOVE #- 


Opérations effectuées: 

<ae> -> (An) 

An <-An+f 

Ici, non seulement An sert de 
pointeur sur l'adresse 
mémoire à affecter, mais en 
plus, APRES l'opération (d'où 
postincrémentation). An se 
verra augmenté d'une certai¬ 
ne valeur calculée en fonction 
du format de l'opérande 
source. L'opérande source ne 
sera pas affecté. 2 exemples : 


$30005 -> 5 

$30006 -> 4 

$30007 -> 3 

$30008 -> 2 

$30009 -> 1 

$3000A -> 0 

D0 contiendra la valeur 
$FFFFFFFF (-1), et A0 S3000B. 

Là encore, la dynamique des 
instructions de notre bon 
vieux 68000 transforme la pro¬ 
grammation en un véritable 
jeu d'enfant... 
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Adressage indirect de 
registre d'adresses avec 
prédécrémentation 

Inutile de faire tout un dis¬ 
cours sur ce mode d'adressa¬ 
ge. Le précédent permettait 
une POSTincrémentation, 
celui-ci effectue une PRE- 
décrémentation. C'est à dire 
que An sera d’abord décré¬ 
menté puis le transfert aura 
lieu. 

Instruction MOVE : 

MOVE.f <ae>,-(An) 

Opérations effectuées: 

An <- An-f 
<ae> -> (An) 

Un exemple: 

MOVE.L #$40000,A0 
MOVE.W #S5678,-(A0) 

(figure 12) 

Quelques remarques à propos 
de l’adressage indirect de 
registre d'adresses: 

♦ Il n'est pas permis de faire 
de même avec des registres de 
données._ 


• L'inc/décrémentation est 
réelle, le résultat interne de 
l'opération effectuée par le 
68000 est ensuite chargé dans 
An. 

• Aucune extension de signe 
n'est effectuée. 

• Les 3 formats B,W et L sont 
autorisés. 

Bien sûr, pour nos explica¬ 
tions, seul l'opérande destina¬ 
tion s'est vu affecté d'une 
adresse effective indirecte. Il 
est évident que cela peut éga¬ 
lement s'appliquer dans 
d'autres cas. De plus, là aussi, 
les 3 formats sont possibles. 
Avant de se quitter, examinons 
un dernier exemple (ci-contre) 
qui correspond à un program¬ 
me de copie de zones 
mémoires. Tous les types 
d'adressage indirects sont uti¬ 
lisés. 

Quelques modes d'adressage 
restent à voir prochainement. 
En attendant, assemblez-bien ! 

Stéphane Rodriguez 


|0 0 0 4'0 O'O 0| AO | 0 0 0 3‘ F f' F e| AO 


$3FFFC 

00 i 01 

$3FFFD 

$3FFFC 

00 

01 

$3FFFD 

S3FFFE 

02: 03 

$3FFFF 

$3FFFE 

56 

78 

$3FFFF 

$40000 

04 | 05 

$40001 

$40000 

04 

05 

$40001 

$40002 

06 ; 07 

$40003 

$40002 

06 

07 

$40003 


Avant 

Fieure 12 " 

Après 



MOVE.L #$20000,AO 

1ère adresse de départ. 

MOVE.L #$22000,Al 

2ème adresse de départ. 

M0VE.L #$30000, A2 

3ème adresse de départ. 

MOVE.W #$1000,00 

Nombre de boucles 

L00P: M0VE.B (Â0)+,(Al) 

1ère copie (Source postlncrémentée) 

MOVE.B -(AI),DI 

2ème copie (Source prédécrémentéé) 

N0T.L DI 

Inversement de DI 

MOVE.B DI,(A2)+ 

Copie en A2 (Destination ppstincrémentée) 

NOT.L DI 

Ré-inversement. 

DBF DO,LOOP 

Bouclage 

RTS 

Retour 
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Algorithmique 

LA RÉCURSIVITÉ 


Voisine de la récurrence mathématique, 
la récursivité n'est pas seulement une 
technique de programmation. C'est aussi 
une méthode de réflexion qui permet 
d'aborder des problèmes a priori 
insolubles comme ceux posés par 
l'intelligence artificielle. 


A ctuellement, la plupart 
des langages évolués C, 
Pascal, Lisp, certains 
Basic,.., etc acceptent des fonc¬ 
tions récursives et proposent 
ainsi une facilité dont il serait 
dommage de se passer. L'idée 
essentielle consiste à transfor¬ 
mer un problème complexe en 
plusieurs sous-problèmes 
SIMILAIRES mais plus 
simples et AINSI DE SUITE 
jusqu'au moment ou on est 
ramené à des cas suffisamment 
simples pour être traités direc¬ 
tement. Exprimé de façon 
guerrière, ceci s’appelle 
«Diviser pour régner». Voyons 
les premières conséquences: 

• Il faut trouver le moyen de 
décomposer le problème, ce 
n'est pas toujours facile. 

• 11 est impératif de s'assurer 
que les sous-problèmes sont 
calculables, c’est-à-dire qu’on 
aboutira après un certain 
nombre d'étapes à un cas tri¬ 
vial- Sinon, soit on a affaire à 
un cercle vicieux, soit le 
nombre des sous-problèmes se 
met à croître vertigineusement 
et finit par faire planter l'ordi¬ 
nateur. 

Premiers pas 

Voici quelques exemples illus¬ 
trant cette manière de penser: 

• Monter un escalier de n 
marches se remène à : 

1- Si l'escalier ne comporte 
qu’une marche, on monte 
d'une marche et c'est finit (le 
cas simple). 

2- Sinon, il suffit de monter 
d'une marche (cas simple) et 
de recommencer l'algorithme 
avec un escalier de n-1 


marches (sous-problème simi¬ 
laire). 

• Donner la liste des ancêtres 
d'une personne (en négligeant 
les collatéraux) se ramène à : 

1 - Si on connaît le père. 

a) Afficher le nom du père (on 
sait faire). 

b) Recommencer avec la liste 
des ancêtres du père (problè¬ 
me similaire). 

2 - Si on connaît la mère. 

a) Afficher le nom de la mère 
(on sait faire). 

b) Recommencer avec la liste 
des ancêtres de la mère (pro¬ 
blème similaire). 

3) - Si on ne connaît ni père, ni 
mère, c'est finit (cas simple). 

• Parfois, on n'est pas sur d’at¬ 
teindre un cas simple, il faut 
alors une condition d'arrêt 
pour échapper à une régres¬ 
sion infinie ou dépassant les 
capacités de l'ordinateur ou 
encore, qui serait inacceptable 
en temps machine. Ce problè¬ 
me se rencontre (même pour 
un humain) au cours d'une 
partie d'échecs, de dames, etc... 
Pour chaque déplacement 
envisagé, il faut évaluer la 
position, imaginer la réponse 
de l'adversaire et...ainsi de 


suite jusqu'à une profondeur 
donnée (L'algorithme clas¬ 
sique dans les problèmes à 
deux joueurs s'appelle le mini- 
max, car l'un des joueurs tente 
de minimiser le gain espéré 
alors que l'autre le maximise). 

• On peut encore citer de 
nombreux exemples où la 
notion de récursivité est omni¬ 
présente, comme les systèmes 
experts, l'analyse syntaxique, 
le calcul symbolique traité par 
ordinateur, etc. En résumé, 
l'énoncé d'un problème dans 
lequel on trouve l'expression 
«...et ainsi de suite jusqu'à ce 
que telle condition soit rem¬ 
plie» est de nature essentielle¬ 
ment récursivè (La boucle 
do...while en est d'ailleurs le 
cas le plus simple). Voyons 
maintenant comment traiter 
quelques cas pratiques 
simples... 

L'exemple «bateau» est celui 
de la fonction factorielle. On 
sait qu’elle est définie par : 
fact( n ) = n! = n*(n-l)*(n-2)*...* 
1 

et on peut la calculer à l'aide 
de la fonction suivante: 

fact( n ) 
intn ; 


( 

int f = n ; 
while( —n > 0 ) 
f = f * n ; 
return(f) ; 

} 

N. B. : Ici, comme dans là suite 
et pour éviter les problèmes 
d’intendance, on considérera 
qu'on se borne à des valeurs 
de n suffisamment petites 
pour ne pas devoir faire inter¬ 
venir les entiers longs. Mais on 
peut essayer une approche 
récursive en remarquant que: 
fact(l) = 1 et 
fact(n) = n * fact( n-1 ) 

Ayant lu attentivement ce qui 
précède et sachant en particu¬ 
lier que le C est récursif, on 
tape avec confiance : 

fact( n ) 
intn ; 

( 

if( n<= 1 ) 
return( 1 ) ; 
else 

return( n * fact( n-I )) ; 

} 

Et ca marche! Examinons un 
cas similaire mais un chouia 
plus compliqué. Soit la fonc¬ 
tion donnée par: 

f(l) = f(2) = 1 et 

f( n ) = f( n-1 ) + f( n-2 ) si n > 2 

La solution récursive s'écrit 
immédiatement : 

f(n) 

intn; 

{ 

if( n < 3 ) 
retum( 1 ) ; 
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else 

return( f( n-1 ) + f( n-2 )) ; 

} 

Cet exemple est encore relati¬ 
vement facile à écrire de façon 
non récursive. Il suffit de cal¬ 
culer les valeurs de 1 à n en 
gardant en mémoire les deux 
dernières, dans un tableau ou 
dans des variables (f(n) donne 
les valeurs successives de la 
suite dite «de Fibonacci» et 
qui sont: 1.1 2 3 5 813....). Mais 
si vous cherchez à trouver une 
solution non récursive à la 
prochaine, vous allez jongler... 

ack( m, n ) 

int m, n ; /* de petites valeurs 

V 

( 

if( m==0 ) 
retum( n+1 ) ; 
else if( n==0 ) 
returnf ack{ m-1, 1 )) ; 
else 

return( ack( m-1, ack( m, n- 
1))); 

} 

Comment ça marche? 

Euh...Comme si vous le faisiez 
vous-même... Reprenons la 
factorielle. Pour calculer sa 
valeur avec n = 5, on fait : 

fact(5) = 5*( fact(4) ) = 5*( 4 *( 
fact( 3 ))) et en fin de compte : 
fact(5) = 5*( 4*( 3* ( 2*( 1 )))) 

Appelons «incarnation», l'en¬ 
semble généré par l'appel 
d'une fonction. C'est la zone - 
au sommet dé la pile - conte¬ 
nant paramètres et variables 
locales. Elle est détruite en fin 
d'exécution et la pile est res¬ 
taurée après que la procédure 
appelante aie récupéré le 
résultat. Le calcul de fact(n) va 
donc commencer par l'ouver¬ 
ture de n-1 incarnations suc¬ 
cessives avant de pouvoir 
renvoyer une valeur qui sera 
celle de fact(l) = 1. C'est seule¬ 
ment alors, que toutes ces 
incarnations vont se refermer 
en cascade en effectuant les 
multiplications. On peut dire 
qu'on a affaire à une remontée 


Listing J 

Désassemblage de la fonction fibo() générée par 

le compilateur du Mégamax C... 

fibo:/* global */ 

LINK 

A6.L$6 

P Pas de variables locales => L$6 = 0 */ 

CM PI 

#2,8{A6) 

P 8(Â6) contient n V 

BGT 

L8(PC) 

P Si n s 2, on va en L8 */ 

MOVE 

#1,D0 

P La valeur de retour est mise dans DO 7 

BRA 

L7(PC) 

P Et on sort 7 

18: 

MOVE 

8(A6),D0 

P On récupère n */ 

SUBQ 

#1,D0 

/* DO = n-1 7 

MOVE 

D0,-(A7) 

P Passage de n-1 par la pile 7 

JSR 

fibo(PC) 

P Exécute fibo( n-1 ) 7 

ADDQ.L 

#2,A7 

P Restauration de la Bile 7 

IWOVE.L 

DO,-(A 7) 

P Empile ie résultat 7 

MOVE 

8(Â6),D0 


SUBQ 

#2, DO 


MOVE 

D0,-(Â7) 


JSR 

Flbo(PC) 


ADDQ.L 

#2, A? 

y* flboi n-2 ) est dans DO 7 

MOVE.L 

DO,DI 

P Passage dans DI V 

MOVE! 

(À7)+.B0 

P Récupération de tiba( n-1 ) 7 

ADD 

D1,D0 

P DO a iibo( n-1 ) + fibo( n-2 ) 7 

BRA 

L7(PC) 

P Kolossale finesse du complio 7 

L7: 

UNLK 

A6 

P Resiauraflen de la elle 7 

RTS 


P Retour 7 

L$6: .EQU 

#0 



de l'information vers les 
couches les plus hautes ou, en 
utilisant le langage des arbres, 
que la valeur du noeud termi¬ 
nal - et des autres - est 
envoyée à la racine. 
Concrétisons les choses ( si 
possible )... Imaginons 5 pou¬ 
pées chinoises emboîtées dont 
la plus interne a la valeur 1 
écrite dessus. Sur le couvercle 
de la première, on écrit : 
fact(5) = 5 *... = ... 
sans savoir pour le moment 
par quoi remplacer les 
Puis on retire soigneusement 
le couvercle pour faire appa¬ 
raître la suivante sur laquelle 
on écrit : 

faet(4) = 4 *... = ... 

Et ainsi de suite : 
fact(3) = 3 *... =... 
fact(2) = 2 *... = ... 
fact(l) = 1 

Ayant obtenu l’information 
nécessaire, il ne reste plus qu'à 


remettre les couvercles dans le 
bon ordre en remplissant les 
«...». Ce qui donne la suite 
d'opérations : 

fact(2) = 2* 1 = 2 
fact(3) = 3*2= 6 
fact(4) = 4 * 6 = 24 
fact(5) =5*24 = 120 

Bien entendu, le cas de 
la factorielle est particu¬ 
lièrement simple et se 
résoud à l'aide d'une 
seule série de poupées. 

Mais pensez au calcul 
de la suite de 
Fibonacci... Les fana¬ 
tiques de l'assembleur 
en trouveront un désas¬ 
semblage commenté 
dans l'encadré 1, mon¬ 
trant comment un com¬ 
pilateur peut réagir face 
à la récursivité. 


Tout n'est pas rose 

Si la mise en oeuvre de la 
récursivité se révèle souvent 
nécessaire, puissante et facile à 
coder, on ne peut passer sous 
silence les problèmes qu'elle 
entraîne et qui doivent inciter 
à une utilisation prudente. 
Nous avons vu qu'un appel 
récursif se traduisait par une 
réservation d'espace sur la 
pile. Mais, outre la mémoire, il 
faut aussi penser que cette 
opération demande un temps 
certain. On peut en conclure 
qu'un algorithme récursif n'est 
pas, en général, le moyen le 
plus efficace d’arriver au but. 
Penchons nous un peu plus 
sur la suite de Fibonacci. De la 
relation : 

f(n) = f( n-1 ) + f( n-2 ), 
on tire en développant : 
f(n) = [ f( n-2 ) + f( n-3 ) ] + [ f( 
n-3 ) + f( n-4 ) ] 

et le fameux «ainsi de suite»... 
Deux remarques s'imposent : 

• 11 va falloir - inutilement! - 
recalculer plusieurs fois les 
mêmes valeurs (voir figure 1). 

• Comme chaque calcul se 
subdivise en deux autres, la 
complexité de l'algorithme va 
être en 2 A (n-2). C'est-à-dire 
que le temps d'exécution va 
croître exponentiellement en 
fonction de n. Inacceptable, 
alors qu'on dispose d'un algo¬ 
rithme itératif simple qui est 
en O(n) et que voici ; 


<(4) 

A 

1(3) 1(2) 

A ! 

f(2) 1(1) 1 

1 1 


1(5) 

A 


1(3) 

A 

2) f(1) 

i i 

1 1 


L'arbre engendré par le calcul 
de fibo(5). Le parcours se fait 
en préordre. 
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fibo( n ) 
intn; 

{ 

int ul = 1, u2 = 1, tampon, i ; 
if( n < 3 ) 
retum( 1 ) ; 
for( i = 3 ; i <= n ; i++ ) 

l 

tampon = u2 ; 
u2 += ul 
ul = tampon ; 

} 

retum( u2 ) ; 

} 

Moralité, ne pas sauter sur la 
première solution récursive 
venue! Si on s'aperçoit que la 
complexité spatiale ou tempo¬ 
relle du programme va poser 
des problèmes, il est bon d'es¬ 
sayer de trouver une solution 
simplement itérative... si elle 


existe. Une question se pose: 
Peut-on toujours éliminer la 
récursivité? Disons qu'il est 
possible de l'éviter formelle¬ 
ment en remplaçant l'appel 
récursif - et la sauvegarde de 
l'environnement dans la pile - 
par la sauvegarde des données 
importantes dans un ou plu¬ 
sieurs tableaux sur lesquels se 
promènent des pointeurs, cor¬ 
respondant au niveau d'imbri¬ 
cation atteint. Cette technique 
revient en fait à gérer manuel¬ 
lement la récursivité, comme 
l'ont fait des générations de 
programmeurs avec des lan¬ 
gages ne leur proposant pas ce 
cadeau. Même combat pour 
celui qui ne s'est pas rendu 
compte de la récursivité sous- 
jacente de son problème et se 
retrouve dans la situation de 


M. Jourdain... Il n'est pas évi¬ 
dent que ce genre de solution 
fasse gagner beaucoup de 
temps à l'exécution, bien qu'on 
puisse ici sélectionner les 
variables à sauver. Quant au 
coût du développement... On 
ne peut donc vraiment parler 
d’élimination dé récursivité 
que lorsqu'on a fait disparaître 
un ou plusieurs de ces 
tableaux - ou piles -. Les 
moyens (excepté parfois... le 
bon sens) qui le permettent ne 
sont absolument pas immé¬ 
diats et je préfère renvoyer à la 
bibliographie en fin d'article, 
où sont examinés à fond cer¬ 
tains exemples non triviaux. 
Concluons avec quelques gra¬ 
phismes un peu plus «ban¬ 
dants» que la suite de 
Fibonacci et autres factorielles. 


Des dessins récursifs 

Les programmes proposés ont 
été écrits pour tourner sur ST 
en moyenne résolution 
(620x200). Il utilisent tous le 
fichier header <graphset.h>, 
qui contient quelques fonc¬ 
tions graphiques rudimen¬ 
taires obtenues à partir des 
appels VDI. Pour ceux qui 
voudraient s'en passer ou uti¬ 
liser des moyens plus rapides 
comme les LINEA, voici le 
détail des routines : 

• Le système des coordonnées 
est modifié, l'origine est en bas 
à gauche et les «y» croissent 
vers le haut. 

• openwO ouvre une station 
de travail qu'il FAUT fermer à 
la fin avec : 

• closewO 

• clearwO efface l'écran. 

• hidecurO cache la souris. 

• showcurO montre la souris. 

• origin( x, y ) déplace l’origi¬ 
ne de l'écran au point (x, y) et 
permet d'utiliser des coordon¬ 
nées négatives. 

• setcolor( c ) fixe la couleur 
des points et droites. 

• plot( x, y ) affiche un point 
relativement au repère. 

• move( x, y ) positionne le 

pointeur graphique 

relativement au repère. 

• draw( x, y ) trace une droite 
entre le pointeur graphique 
(x0,y0) et le point (x, y). 

Une cercle bizarre 

Le programme en encadré 3 
s'appelle cercle, c. L'idée est de 
tracer un cercle de rayon r 
mais dont chaque point serait 
lui-même le centre d'un cercle 
de rayon inférieur. Et ainsi de 
suite... Pour aller suffisam¬ 
ment vite, il faut travailler en 
entiers et précalculer un 
tableau de sinus et de cosinus 
pour chaque point dont le 
nombre est fixé à 35 par cercle. 
Les valeurs trigonométriques 
sont multipliées par 256 afin 
de ne pas trop perdre de préci¬ 
sion et on redivise ensuite 
pour le résultat final. Les 
appels récursifs cessent quand 
le rayon devient inférieur à 25, 


#define clearw{) v cirwk( handle ) 

v offx = x ; 

#define closewj) v clsvwk( handle ) 

v otty = y; 

#define showcur() v show c( handle,0 ) 


#definehidecur()v hide c( handle) 

move{ x, y ) ; 

#define HAUTEUR 199 

} 

int 


contrI[12L lntin[128], ptsin[ 1281 , lntout[ 128 ] > ptsout[ 128 J; 

move(x,y) 

int 

int x, y; 

{ 

handle, work out[57], work ln[12]; 

int 

register int *ptr = v graphmat; 

v_offx, v_offy, v_graphmat[10] ; 

*ptr++ = x + v offx ; 

openw() 

*ptr = HAUTEUR-{y+v offy); 

} 

int i ; 

draw(x,y) 

for ( i = 0 ; i < 10 ; work in[ i++ ] s 1 ) ; 

int x, y; 

{ 

work ln[10] = 2 ; 

v opnvwk(work In, &handle, work out); 

register int *ptr = v graphmat+ 2; 

vsf_perlmeter( handle, 1 ); 


vsfjnterlorf handle, 2 ); 

*ptr+*=x; 

vsf color( handle, 1 ); 

*ptr = HAUTEUR-(y+v offy); 

vswr mode( handle, 1 ); 

v_pline( handle, 2, v graphmat ); 

vsf style( handle, 1 ); 

} 

move( x, y ); 

} 

setcolor(x) 

plot(x,y) 

intx ; 

Int x, y ; 

x &= 3 ; 

register int‘ptr = v graphmat+ 2 ; 

vsm co!or( handle,x ) ; 


vsl color( handle,x ) ; 

*ptr++ = x + v offx; 

} 

*ptr- = HAUTEUR -(y+v offy); 

orig!n( x. y ) Listing 2 

v_pmarker( handle, 1, ptr); 

} 

{ Le fichier <graphset.h> 
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c'est la condition d'arrêt. On ficher un point. C’est pour cor- 
remarque que les ordonnées riger le phénomène d'étire- 
sont divisées par 2 avant d’af- ment vers haut dû à la moyen¬ 


#include <math.h> r 5 

setcolor( 2 ) ; 

«Include <osbind.h> s 

circle( 0 , 0 ,80 ); 

#include <graphset.h> Cercles.c 

CrawcinO; 


showcur(); 

#define pl2 6.28 

closewQ ; 

#define NB 35 

} 

int slJNB+5], co[NB+5] ; 

clrcle( x, y, r ) 


int x, y, r; 

main() 

{ 

{ 

register int i, dx, dy, dr; 

double k, pas; 

register int *ptrco, *ptrsi; 

int 1=0; 



plot( x, ( y » 1 )); 

openw() ; 

if( r < 25 ) 

clearwQ; 

return ; 

origin( 320,100 ); /* centre de l'écran */ 

for( ptrco=co, ptrsi = si, i=0 ; l<NB ; i++ ) 

hidecur(); 

{ 

pas= pl2 / ( double ) NB; 

dr=(r*1Q0)/150; 

for( k = 0 ; k < pi 2 ; k += pas 

dx=( r * *ptrco++ ) » 8; 

{ 

dy=(r**ptrsl++)»8; 

si[i] =( int X 256.0*sin( k ) ); 

clrcle( x+dx, y+dy, dr); 

co[i++]=( Int )( 256.0*cos( k ) ); 

} 

} 

} 


ne résolution (640x200). Il est 
facile de construire des varia¬ 
tions sur ce thème : Par 
exemple, en rempla 
çant les cercles par 
des carrés, etc. 

Le flocon de 
Von Kock 


Fi gure 2 


Cette...pathologie semble sur¬ 
gir des cauchemards d'un 
mathématicien à la cervelle 
dévastée par les x. Jugez plu¬ 
tôt: 

• La longueur d'une partie 
quelconque de la courbe est 
infinie. 

• La courbe est partout conti¬ 
nue et nulle part dérivable. 



Flocon de Von Kock 


#include<osblnd.h> 

ky = ( si’dx + co*dy ) » 17 ; 

#include <graphset.h> Listing 4 

ny = yl + ( int ) ky ; 


/* Le sommet du nouveau triangle est trouvé par */ 

long lim = 200L ; Flocon de 

r une rotation de 60 degrés */ 

VonKock 

cote{ xO, yO, xl.yl); 

main() 

cote(x1,y1,nx, ny); 

{ 

cote{ nx, ny, x2, y2 ) ; 

openwO ; 

cote(x2, y2, xf, yf); 

origin( 0,0 ) ; 

r Les appels récursifs sur les 4 nouveaux 1" 

do { 

1* segments 7 

clearwO ; 

} 

floconQ ; 

else 

lim /= 3L ; 

{ 

CrawcinO i 

move( xO, yO » 1 ) ; 

} while( lim > 0L ) ; 

draw( xf, yf » 1 ) ; 

closewQ ; 

/* Quand on a atteint la condition d'arret, Il ne 7 

} 

/* reste plus qu'à tracer 7 

cote( xO, yO, xf, yf ) /* trace l'un des cotés V 

} 

Int xO, yO, xf, yf ; 


{ 

floconf) 

Intx1,y1,x2,y2, nx,ny,dx,dy ; 

{ 

register long kx, ky, si = 113511, co = 65536 

intxO, y0,x1,y1,x2,y2 ; 

dx = ( xf-x0 )/3 ; / 

X0 = 100 ; yO = 90 ; 

dy = ( yf-yO )/3 ; 

xi = 260 ; yl = 365 ; 

if( dx‘dx + dy*dy > lim*llm ) r pythagore */ 

X2 = 420 ; y2 = 90 ; 

1 

cote<x0,y0,x1,y1 ) ; 

xi = xO + dx ; yl = yO + dy ; 

cote( Xl,y1,x2,y2) ; 

x2 = xf-dx;y2 = yf-dy; 

cote( x2, y2, xO, yO ) ; 

kx = ( co‘dx - si*dy ) » 17 ; 

/* un flocon comporte 3 côtés 7 

nx = xi ♦ ( int ) kx ; 

} 


• La surface qu’elle englobe 
est finie. 

Pour la construire, on utilise 
l'algorithme suivant (voir 
figure 2) : 

• On prend un triangle équila¬ 
téral qu'on appelle «graine». 

• Au centre de chacun des 
segments de droite ainsi défi¬ 
nis, on fait germer un petit tri¬ 
angle équilatéral dont chaque 
côté fait le tiers du segment 
initial. 

• Et ainsi de suite avec tous 
les segments de droite pré¬ 
sents sur le dessin. 

• La condition d'arrêt est don¬ 
née par la variable globale lim, 
qui représente la longueur 
minimale d'un côté. 

Ces types de courbes s’appel¬ 
lent «fractales» et ont été étu¬ 
diées sérieusement pour la 
première fois par Benoît 
Mandelbrojt. Elles permettent 
de prendre en compte le côté 
«non euclidien» de certains 
phénomènes naturels (voir 
bibliographie). Compte tenu 
de la résolution d'un ordina¬ 
teur, on ne peut en donner 
qu'une approximation gra- 
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phique. Mais cette dernière en 
montre bien \e caractère intrin¬ 
sèquement récursif, qui n'est 
pas difficile à mettre en oeuvre 
quand on en a saisi le princi¬ 
pe. Le seul problème consiste 
à établir les relations mathé¬ 
matiques permettant le passa¬ 
ge de l’étape n à l’étape n+1. 

La courbe de Péano 

La présente courbe se pro¬ 
gramme de la même manière 
que le flocon. A partir de la 
graine donnée (voir figure 3), 
on cherche les coordonnées 
des points conduisant à l'étape 
suivante et ainsi de suite jus¬ 
qu'à la condition d'arrêt. 
Notons que ce n’est pas la 
meilleure façon d'aller de A à 
B... 

Les deux courbes suivantes 
sont très proches l'une de 
l’autre par leur construction 
(figures 4 et 5) qui consiste à 
décomposer chaque segment 
de façon simple. Par contre et 
au lieu de passer les coordon¬ 
nées début et fin de chaque 
segment, on se contente d'en 
donner l'origine et d'indiquer 
longueur et direction. Au 
même titre que la courbe de 
Péano, elles donnent une bien 
mauvaise réponse au problè¬ 


#include <osbind.h> 

«include <graphset.h> 

{ 

int vlx, vly, v2x, v2y, dx, dy, xi, yl, x2, y2, x3, y3, x4, y4 ; 
long kx, ky, Idx, Idy ; 

long llm = 250L, si s -20L, co = 401 ; 

ldx = (long)(dx = xf-x0); 

mainO 

{ 

Idy = ( long ) ( dy=yf - yO ) ; 
if ( ldx*ldx + ldy*ldy > lim*lîm ) 

ni i, xO = 460, y0 = 60, xi = 180, yl = 60 ; 

{ - 

kx = ( co*dx - si*dy )/100L ; vlx = ( int ) kx ; 

openwQ ; 

ky = { si’dx + co*dy )/100L ; vly = ( int ) ky ; 

hidecurO I 

xi = x0 + vlx ;y1 =y0 + vly ; 

clearwQ ; 

v2x = v 1 y;v 2 y = -vlx; 

setcolorf 1 ) ; 

x2 = xi + v 2 x ; y2 = yl + v 2 y ; 

oiiginj 0,0 ) ; 

X3 = x2+v1x;y3 = y2 + v1y ; 

do 

{ 

x4 = x1 + v1x;y4 = y1 + vly ; 
peano(x0, yO, xl.yl ); 

peano( xO, y0, xl.yl ); 

peano(x 2 ,y2,xl.yl ); 

lim /= 2L ; 

peano( x2, y2, x3, y3 ) ; 

Crawcin() i 

peano( x3, y3, X4, y4 ) ; 

clearwQ ; 

peano(xf,yf,x4,y4 ) ; 

} while ( lim > IL ) ; 
showcur() ; 

} 

else{ 

closewQ ; 

move( xO, yO » 1 ) ; 

} 

draw( xf, yf » 1 ); . 

j Listing 5 

peano( xO, yO, xf, yf ) 

Int xO, yO, xf, yf ; 

^ Courbe de Péano 


me du plus court chemin d't 

point à un autre... 

Vous verrez, en exécutant ces 
petits programmes, que ces 
courbes fractales ont de 
curieuses propriétés. Par 
exemple, si on prélève une 
partie et qu’on la grossisse 
convenablement, on obtient 



Courbe de péano 


#include <osblnd.h> 
#include <graphset.h> 


ÿdeflneqrt 0.707106781 
#define sqr21.41421 
üdeflne LMIN 2.0 


float xO, yO, length ; 


float tab[8][2] = { 

{ 1 .0,0.0}, { qrt, qrt}, [0.0, 1.0}, {-qr1, qrt}, 

{-1.0,0.0}, {-qrt, -qrt}, {0.0, -1.0}, { qrt, -qrt} 

}; /* Tableau de sinus et cosinus pour gagner de temps ’/ 

main() 


openwQ; 
origin( 0,0) ; 
length = 128.0 ; 
while( length >= LMIN ) 


i 

clearwQ; 

move( (int) ( xO = 450 
Ccurve( 128.0,4 ); 
Crawcin(); 
length /= sqr 2 ; 

0 ), (Int) (yO = 150.0)); 

length = 160.0; 
whlle( length >= LMIN ) 


clearwQ; 

move{ ( Int ) ( xO = 170.0 ), ( Int ) ( yO = 70.0 ) ); 
d,.gon( 160.0,0 ,11 ; ^ du ^ ing page 
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CrawcInO; 

if (len <= length) 

length /= sqr2 ; 

{ 

} 

ang &= 7; 

closewO ; 

if(ang< 0 )ang +=8; 

} 

polairef len, ang ); 

dragon( len, ang, slgn) 

else 

float len; 

{ 

Int ang, sign; 

I=len/sqr2; 

t 

Ccurve{ 1, ang+1 ); 

floatl; 

Ccurve( 1, ang-1 ); 

if ( len <= length ) 

} 

1 

ang &= 7; 


if ( ang <0 ) ang += 8; 

/* Polaire trace un segment d'origine ( xO, yO ), de longueur */ 

polairef len, ang ); 

r len et faisant un angle ang avec l'horizontale */ 

else 

polaire( len, ang ) 

{ 

float len; 

I=len/sqr2; 

Int ang; 

dragonj 1, ang+sign, 1 ); 

{ 

dragon( 1, ang-slgn, -1 ); 

staticint col; 

} 

setcolor{ ++col ); 


if( col%4 == 3 ) setcolor( col++ ); 

Ccurve{ len, ang ) 

/* change de couleur à chaque segment en évitant celle */ 

float len; 

/* du fond */ 

intang; 

x 0 += 2 *tab[ang][ 0 ]*len; 

{ 

yû += tab[ang][11*len; 

floatl; 

draw( ( int ) xO, ( int ) yO ); 

} 


une courbe semblable au tout. 
Il est aussi possible de créer de 
nouveaux monstres en intro¬ 
duisant des valeurs aléaoires 
ou par tout autre moyen ! 

ET AINSI DE SUITE, JUS¬ 
QU'A EPUISEMENT... 

Jean-Yves Trétout 

Bibliographie 

Sur la récursivité : 

«Les bases de la programma¬ 
tion» par J. Arsac chez 
DUNOD. 

«Méthodes de programma¬ 
tion» par B. Meyer et C. 
Baudouin chez 
EYROLLES. 

Au sujet des fractals : 

«Les objets fractals» par B. 
Mendelbrot chez FLAMMA¬ 
RION. 

«Fractals: Dimension non- 
entières et applications» sous 
la direction de G. Cherbit chez 
MASSON. 



49 



























































AMIGA 


PROGRAMMATION 

Super copieur 

SCOPY 


Possesseurs d f urt seul drive r 
soyez heureux! Fini le rituel grille-pain 
de la copie en plusieurs passes via le 
Disk RAM. 


COPY (contraction de 
Super-Copy) apporte 2 
éléments nouveaux dans 
la manière d'effectuer vos 
copies. 

• 11 traite des fichiers de nim- 
porte quelle longueur. Au 
préalable, il permet d'appré¬ 
cier la quantité de mémoire 
restante utilisable à cet effet. 

• Il fait l'impasse sur le Disk 
RAM limité à 200 Ko. La copie 
s'effectue directement. 

Utilisation 

SCOPY se divise en 2 parties. 

• la partie INFO où l'on accède 
en tapant SCOPY sous CLI 
sans y adjoindre le moindre 
paramètre. Après le copyright 
traditionnel, s'affiche un 
nombre hexadécimal précisant 
la quantité de mémoire CHIP 
disponible. Si les heureux pos¬ 
sesseurs d'au moins 1 méga de 


RAM n'ont guère l'usage de 
cet utilitaire, les 512K-istes en 
revanche, sont vivement inté¬ 
ressés par cette valeur. Tant 
que la longueur d'un fichier 
est inferieure à la valeur indi¬ 
quée, SCOPY èst utilisable. 
Viennent ensuite les précau¬ 
tions à prendre... 

• la partie EFFECTIVE, ou 
fonction copie de SCOPY qui 
s'obtient par l'ajout d'un para¬ 
mètre: le nom du fichier que 
vous désirez copier (Exemple, 
SCOPY dfO:c/SetMap). A ce 
stade, précisons que le nom du 
drive utilisé doit obligatoire¬ 
ment être spécifié (ici «DFQ:»). 
Pour le reste, le nom du fichier 


est on ne peut plus classique et 
les règles que vous connaissez 
déjà restent les mêmes. Un 
message apparaît ensuite vous 
demandant d'insérer la dis¬ 
quette source. Changez de dis¬ 
quette le cas échéant, puis 
pressez en connaissance de 
cause l'un des deux boutons 
de la souris. 

- Le bouton droit sert à sortir 
du programme en cas de lan¬ 
cement erroné de SCOPY, ou 
d'erreur dans la saisie du nom 
du fichier. 

- Le bouton gauche avertit 
l'Amiga que vous êtes prêt. 
SCOPY charge le fichier puis 
demande d'insérer la disquette 


destination (celle où vous dési¬ 
rez copier votre précieux 
fichier). 

IA encore, pressez l'un des 2 
boutons après avoir inséré la 
disquette susdite qui doit 
contenir suffisamment d'espa¬ 
ce libre pour héberger le 
fichier. La sauvegarde effec¬ 
tuée, retour au CLI comme par 
enchantement. 

Sauvegarde 

Les codes hexadécimaux du 
listing sont à entrer par l'utili¬ 
taire Amiga Saisie en vous 
reportant, bien sûr, à son mode 
d'emploi (Micro-Mag n°10). 
Longueur en octets à spécifier: 
1796. 

Stéphane Rodriguez 


00001 

0000 

03F3 

0000 

0000 

0000 

0002 

0000 

0000:03F5 

00026 

00027 

0000 

0000 

05CE 

047D 

4EAE 

263C 

FFDC 

0000 

2239 

0043 

0000 

4EAE 

05DE 

FFD0 

243C:A0AB 
0839:81B3 

00002 

0000 

0001 

0000 

AEÈA 

0000 

0001 

0000 

03E9:B2D5 

00028 

000A 

00DF 

F016 

675A 

0839 

0006 

00BF 

E001:4158 

00003 

0000 

0191 

5340. 

6704 

6000 

0072 

2C78 

0004:48C3 

00029 

66EC 

223C 

0000 

05EE 

243C 

0000 

03EE 

4EAE-.05EE 

00004 

7202 

4EAE 

FF28 

613A 

43FA 

05CC 

4EAE 

FE68:B7EE 

00030 

FFE2 

23C0 

0000 

05D2 

6700 

0038 

2239 

0000:B2E5 

00005 

23C0 

0000 

04C2 

6700 

0028 

2C40 

4EAE 

FFC4:0A5C 

00031 

05D2 

2439 

0000 

05D6 

2639 

0000 

05 DA 

4EAE: AAA2 

00006 

6712 

2200 

243C 

0000 

0212 

263C 

0000 

022F:D7CB 

00032 

FFD0 

2239 

0000 

05D2 

4EAE 

FFDÇ 

2239 

0000:989E 

00007 

4EAE 

FFD0 

2C78 

0004 

227A 

047C 

4EAE 

FE62:EF00 

00033 

05DE 

243C 

0000 

04C0 

263C 

0000 

0002 

4EAE:A3C6 

00008 

4E75 

41FA 

0241 

7207 

E998 

2400 

0280 

0000:14CF 

00034 

FFD0 

2279 

0000 

05D6 

2039 

0000 

05DA 

2C7 8:7AAA 

00009 

000F 

0C00 

000A 

6D06 

0600 

0037 

6004 

0600:E55A 

00035 

0004 

4EAE 

FF2E 

2C78 

0004 

2279 

0000 

0402:Al97 

00010 

0030 

10C0 

2002 

51C9 

FFE0 

4E75 

0C18 

0020:DD48 

00036 

4EAE 

FE62 

4E75 

0D0A 

9B30 

3B33 

313B 

3430:E45D 

00011 

6604 

51C8 

FFF8 

43FA 

056A 

41E8 

FFFF 

5340:964F 

00037 

6D41 

6E6F 

7468 

6572 

2070 

6F77 

6572 

6675:1158 

00012 

12D8 

51C8 

FF FC 

2C78 

0004 

43FA 

054A 

4EAE:290A 

00038 

6C20 

746F 

6F6C 

2064 

6F 6E 

6520 

6279 

209B:C801 

00013 

FE68 

23C0 

0000 

04C2 

67A6 

2040 

4EÂE 

FFC4:0942 

00039 

343B 

3333 

3B34 

306D 

4160 

646F 

2052 

6573:FEAF 

00014 

23C0 

0000 

05DE 

2200 

243C 

0000 

0441 

263C:9A57 

0.0040 

6574 

9B30 

3B33 

3,13B 

3430 

6D2F 

9B31 

3B33:E4D5 

00015 

0000 

003C 

4EAE 

FFD0 

0839 

000A 

00DF 

F016:47F2 

00041 

323B 

3430 

6D4D 

4354 

9B30 

3B33 

313B 

3430:52DA 

00016 

6700 

0134 

0839 

0006 

00BF 

E001 

66ËA 

2C79:E496 

00042 

6D20 

696E 

2031 

3939 

302Ë 

0D0A 

0A41 

7661:EDD2 

00017 

0000 

04C2 

223C 

0000 

05EE 

243C 

FFFF 

FFFE:5125 

00043 

696C 

6162 

6C65 

2043 

6869 

702D 

4D65 

6D6F:EAE0 

00018 

4EAE 

FFAC 

23C0 

0000 

04C6 

6700 

010A 

2C79:0B63 

00044 

7279 

3A20 

2400 

0000 

0000 

0000 

0020 

6279:3332 

00019 

0000 

04C2 

2200 

2430 

0000 

04CA 

4EAE 

FF9A:9E10 

00045 

7465 

732E 

0D0A 

0A48 

6F77 

2074 

6F20 

7573:7363 

00020 

4A80 

6700 

00F2 

41FA 03B6 

2026 

007 A 

23C0-.3C64 

90046 

6620 

7468 

6520 

5343 

4F 50 

5920 

636F 

6D6D:0B37 

00021 

0000 

05DA 

223C 

0001 

0002 

2C78 

0004 

4EAE:A343 

00047 

616E 

643A 

0D0A 

4A75 

7374 

2067 

6976 

6520:7F98 

00022 

FF3A 

23C0 

0000 

05D6 

6700 

00CC 

2C79 

0000:BD15 

00048 

7468 

6520 

6669 

6C65 

6E61 

6D65 

2C20 

692E:1D6A 

00023 

04C2 

223C 

0000 

05EE 

243C 

0000 

03ED 

4EAE:A3C3 

00049 

652E 

209B 

373B 

3331 

3B34 

306D 

5343 

4F50:FE69 

00024 

FFE2 

23C0 

0000 

05CE 

6700 

0098 

2200 

2439:D741 

00050 

5920 

6466 

303A 

632F 

5365 

746D 

6170 

9B30:1561 

00025 

0000 

05D6 

2639 

0000 

05DA 

4ÉAE 

FFD6 

2239 :A2A6 

00051 

3B33 

313B 

3430 

6D0D 

0A48 

6974 

203C 

5265:F408 


50 








AMIGA 




PROGRAMMATION 


00052:7475 726E 3E2C 7468 656E 2069 6E73 6572:F333 00083:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00053:7420 7468 6520 9B33 3B33 333B 3430 6D73:F8EC 00084:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00054:6F75 7263 6520 9B30 3B33 313B 3430 6D64:F02A 00085:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00055:6973 6B20 7768 6963 6820 6375 7272 656E:58D3 00086:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00056:746C 790D 0A63 6F6E 7461 696E 7320 7468:2CA1 00087:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00057:6520 6669 6C65 2E50 7265 7373 206D 6F75:DBF8 00088:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00058:7365 2D62 7574 746F 6E2C 2052 6967 6874:EB03 00089:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00059:2062 7574 746F 6E20 746F 2071 7569 742E:F6DC 00090:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00060:0D0A 596F 7572 2066 696C 6520 6973 206C:54BC 00091:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00061:6F61 6465 642C 7468 656E 2069 6E73 6572:0616 00092:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00062:7420 7468 6520 9B33 3B33 333B 3430 6D64:F8DD 00093:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00063:6573 7469 6E61 7469 6F6E 9B30 3B33 313B:33B2 00094:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00064:3430 6D20 6469 736B 2061 6E64 0D0A 646F:7962 00095:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00065:2061 7320 6265 666F 7265 2E20 596F 7572:CBBB 00096:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00066:2066 696C 6520 6973 206E 6F77 2063 6F70:781D 00097:0000 0000 0000 646F 732E 6C69 6272 6172:07EA 
00067:6965 6420 6F6E 2074 6865 2064 6973 6B2E:BAD1 00098:7900 0000 0000 0000 0000 0000 0000 0000:7900 
00068:0D0A 5761 726E 696E 673A 2064 6973 6B20:9C78 00099:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00069:6E61 6D65 2028 6578 2E20 6466 303A 2920:4D46 00100:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00070:6D75 7374 2062 6520 7370 6563 6966 6965:1209 00101:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00071:642E 0D0A 0A49 6E73 6572 7420 9B33 3B33:99EC 00102:0000 0000 0000 0000 0000 0000 0000 0000:0000 
00072:313B 3430 6D73 6F75 7263 6520 9B30 3B33:F039 00103:0000 7965 735F 636F 0000 03EC 0000 001F:543E 
00073:313B 3430 6D64 6973 6B20 616E 6420 7072:DD62 00104:0000 0000 0000 00J.E 0000 0032 0000 00A0:00F0 
00074:6573 7320 6D6F 7573 6520 6275 7474 6F6E-.66EC 00105:0000 00AE 0000 00B6 0000 00DC 0000 00E2:0322 
00075:2E0D 0A49 6E73 6572 7420 9B33 3B33 313B:87FC 00106:0000 00F2 0000 00FC 0000 0104 0000 011C:040E 
00076:3430 6D64 6573 7469 6E61 7469 6F6E 209B:EE43 00107:0000 0130 0000 013A 0000 0140 0000 0150:04FA 
00077:303B 3331 3B34 306D 6469 736B 2061 6E64:35A6 00108:0000 015C 0000 0162 0000 016C 0000 0176:05A0 
00078:2070 7265 7373 206D 6F75 7365 2062 7574:9F65 00109:0000 017C 0000 01Â0 0000 01B0 0000 01BA:0686 
00079:746F 6E2E 0D0A 0000 0000 0000 0000 0000:EFA7 00li0:0000 01C0 0000 01C6 0000 01D0 0000 01DA:0730 
00080:0000 0000 0000 0000 0000 0000 0000 0000:0000 00111:0000 01E0 0000 01F0 0000 01F6 0000 0208:07CE 
00081:0000 0000 0000 0000 0000 0000 0000 0000:0000 00112:0000 0000 0000 03F2 0000 03EB 0000 0001-.07DE 
00082:0000 0000 0000 0000 0000 0000 0000 0000:0000 00113:0000 03F2 0000 0000 0006 9808 0000 7068:0068 
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Du vrai cinéma 

ANIMAUX 


Créer des sprites multicolores c'est bien, 
les animer c'est mieux. Surtout par le 
biais d'un outil à la hauteur. 


C et utilitaire en GFA 3.0 
permet la création et l'ani¬ 
mation de sprites. Le 
second programme est un 
exemple d'utilisation des 
fichiers préalablement créés. 
L'éditeur d'Animatix propose 
l'élaboration de séquences 
d'une quinzaine de sprites (16 
x 16,24 x 24 ou 32 x 32 pixels). 
L'emploi est aisé par l'utilisa¬ 
tion de menus déroulants dont 
voici le détail. 

Project 

• Save: sauvegarde la case en 

• Load: chargement d'une 

• Save animation: sauvegarde 
d'une animation. Exemple,15 
cases en une seule fois. 

- Sélectionner «Animation 
select». 

- Cliquer les 15 cases les unes 
après les autres. 

- Sélectionner «Save anima¬ 
tion». 

- Entrer le nom du fichier 
(«Essai» par exemple). 

- Le programme sauvegardera 
alors les 15 cases sous les noms 
de «Essail, Essai2,... Essaisl5). 

• Load animation: charge une 
animation. Entrer le nom du 
fichier, plus le numéro 1. Pour 
recharger l'animation «Essai» 
de 1 à 15. 

- Sélectionner «Load anima¬ 
tion». 


- Entrer «Essail», le program¬ 
me chargera le reste. 

N. B. : pour «Save animation» 
et «Load animation», on doit 
impérativement avoir sélec¬ 
tionné au moins une anima¬ 
tion, sinon, il ne se passera 
rien. 

• Palette: lors de la sélection 
de cette option: 

- Pour «Load animation», le 
programme chargera la palette 
de couleurs si elle existe. 

- Pour «Save animation», le 
programme sauvegardera la 
palette de couleurs. 

• Quit: quitter le programme. 

Utile 

• Move: déplace une case vers 
une autre. Après sélection, cli¬ 
quer la case destination. La 
case destination est remplacée 
par la case actuelle qui s'efface. 

• Swap: échange le contenu de 
2 cases. Après sélection, cli¬ 
quer la seconde case. 

• Copy: duplique la case sur 
une autre. Après sélection, cli¬ 
quer la case destination. Celle- 
ci est remplacée. 

• Inversion H: inverse hori¬ 
zontalement le contenu de la 
case. 


• Inversion V: inverse vertica¬ 
lement le contenu de la case. 

• Clear détruit la case actuel¬ 
le. 

Animation 

• Animation select: sélection 
d'une animation. Sélectionner 
les cases les une après les 
autres (le programme n'accep¬ 
te que 20 animations maxi). 
Quitter cette fonction en cli¬ 
quant sur le bouton droit de la 
souris. Chaque nouvelle ani¬ 
mation efface la précédente. 

• Animation start: active l'ani¬ 
mation sur l'écran. Si aucune 
n'a été sélectionnée, il ne se 
passera rien. Quitter cette 
fonction en cliquant longue¬ 
ment sur le bouton gauche. 
Régler la vitesse d'animation 
en déplaçant la souris de 
gauche à droite. 

Format 

• 16 x 16: format des cases par 
défaut, correspondant à 16 
pixels sur 16. 

• 24 x 24: correspond à 24 
pixels/24. 

• 32 x 32: correspond à 32 
pixels/32. Le plus grand for¬ 


mat du programme. 

• Restore palette: restaure les 
couleurs à leur état par défaut. 

Divers 

• Pour dessiner dans diffé¬ 
rentes cases, sélectionner la 
case en question. 

• Pour chaque couleur sélec¬ 
tionnée, on peut modifier les 
niveaux de rouge, vert et bleu 
en cliquant dans les 3 cases 
réservées à cet effet. 

• Le programme utilise les 
couleurs de 0 à 3. Ne pas les 
modifier afin d’éviter tout 
compromis avec l’affichage de 
présentation. 

• Une petite case au-dessus de 
la palettisation indique: 

- L’attente (Wait). 

- Que Von doit cliquer une 
autre case (Pick). 

- Le numéro de sélection d'ani¬ 
mation. 

• Les cases sont sauvegardées 
sous le format «Get» et «Put» 
avec, en début de fichier, diffé¬ 
rents paramètres (voir com¬ 
mentaires du second program¬ 
me). 

• Il est possible de charger sur 
un format supérieur, des cases 
sauvegardées sous un format 
inférieur, mais pas l'inverse. 

• Les images sont sauvegar¬ 
dées sous 5 plans de bits 32 
couleurs. 

Daniel Provenier 


■ indique 1 1 endroit où 
vous devez frapper Return. 



ANIMAUX 
Writing by 
PROVENIER DANIEL 


******.£S**i 2 £ 02/199 5»* 


RESERVE 30000. 

DEFWRD "a,z"■ 

EDIT. 

PROCEDURE principal. 

FOR q=0 TO 2. 

@aff palette(q)• 

NEXT q. 

ON MENU GOSUB queljnenu* 
REPEAT. 

ON MENU 0.1. 

MOUSE x.y.k. 


IF k=l. 

©clique* 

ENDIF. 

UNIIL finisl- 
RETURN- 

PROCEDURE init. 

DIM raen$(25).co(31.2).an$(20). 
di=l. 

OPENS 1,0.0.320,256,5,0. 

OPENW 1,0,0.320,256.0.0.1. 
CLEARW 1. 

TITLEW #1 
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FOR n=0 TO 25« 

RE&D men$(n)- 
NEXT n- 
MENU men$()■ 

@restore_co- 

@init2- 

@get • 

cl$=im$- 

@principal« 

pal=0« 

valm%=&H52« 

DATA Project,Save,Load,Save animation,L 
oad animation,Palette,Quit, 

DATA Utile,Move,Swap,Copy,Inversion.H,I 
nversion.V,Clear,""■ 

DATA Anime,Animation select,Animation s 
tart,""■ 

DATA Format,16*16,24*24.32*32,Restore p 


alette,""■ 
palette :■ 


DATA 

0,0,0- 

DATA 

7,7,7- 

DATA 

5,15,15- 

DATA 

15,5,5- 

DATA 

15,15,15 

DATA 

11,11,11 

DATA 

6,6,6- 

DATA 

2,2,2- 

DATA 

15,0,0- 

DATA 

15,4,0- 

DATA 

15,8,0- 

DATA 

14,12.0- 

DATA 

13.14.0- 

DATA 

8,14.0- 

DATA 

4.14,0- 

DATA 

0,14,0- 

DATA 

0,15,0- 

DATA 

0,15,4- 

DATA 

0,15.8- 

DATA 

0,14,12- 

DATA 

0,12,14- 

DATA 

0,8,14- 

DATA 

0,4.14- 

DATA 

0.0.14- 

DATA 

0.0.15- 

DATA 

4,0,15- 

DATA 

9,0,15- 

DATA 

13,0,15- 

DATA 

15,0.13- 

DATA 

15.0,9- 

DATA 

15,0,4- 

DATA 

15,7,15- 

RETURN- 


PROCEDURE initl- 

ALERT 0,"ATTENTION|toutes les cases von 
t etrelDETRUITES",1,"CONTINUE|OUBLIE II" 
, a» 

IF a-1 ■ 
di=dil- 
@>init2- 
ENDIF- 
RETURN. 

PROCEDURE init2. 

DEFFILL 1,1,1- 
PBOX 0,0,320,256- 
@box(5,0,10,192,202)- 
@box(3,200,213,247,221)- 


@box(3,200,228,247,236). 

@box(3,200,243,247,251). 

@box(3,0,218,194.244)- 
@box(3,275,213,310,223)- 
COLOR 3- 

FOR n=0 TO 192 STEP 12+(4*(di=2))+(6*(d 
i=3) )- 

LINE n,10,n,202- 
LINE 0,n+10,192,n+10- 
NEXT n- 
COLOR 3- 

BOX 0,10,192.202- 
dl=(di-l)*8- 
FOR n=0 TO 2- 
FOR m=0 TO 4- 

@box(3,200+(n*40),10+Cm*40),216+(di 
-l)*8+(n*40)+l,26+(m*40)+(di-l)*8+l). 

NEXT m- 
NEXT n- 
c=0 » 

FOR n=0 TO 1- 
FOR m=0 TO 15- 
DEFFILL c.l.l- 

PBOX m*12+l,n*12+220,m*12+11,n*12+2 
30- 

c=c+l« 

NEXT m- 
NEXT n- 

COLOR 1- 
cl=219• 
c2=231- 
c=0 ■ 

BOX 0,219,12,231- 
COLOR 2,1- 
TEXT 253,221,"R"- 
TEXT 253,236."V"- 
TEXT 253,251,"B"- 
btl=0. 
bt2=0- 
COLOR 3- 

BOX 200,10,216+(di-l)*8+l,26+(di-l)*8+l 

nor=12+(4*(di=2))+(6*(di=3))- 
n2=8+(8*di)- 
RETURN. 

PROCEDURE box(noir,xl,yl,x2,y2). 

DEFFILL 0,1,1- 

PBOX xl+noir,yl+noir,x2+noir,y2+noir- 
DEFFILL 0,1,1- 
PBOX xl,yl,x2,y2- 
DEFFILL 2- 
BOX xl,yl,x2,y2- 
RETURN- 

PROCEDURE clique- 
IF x<192 AND y<202 AND y>ll- 
@point- 

ELSE IF x<194 AND y>218 AND y<244- 
@choix_couleur- 

ELSE IF x>200 AND y>10 AND y<200- 
@quel_boite- 
@restit. 

ELSE IF x>200 AND x<247 AND y>213 AND y 
<251- 

@choix_palette- 
ENDIF- 
RETURN. 

PROCEDURE point- 
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COLOR C. 

xl=INT(x/nor)*nor. 
yl=INT((y-10)/nor)*nor+10. 

PBOX xl+1,yl+l,xl+nor-l,yl+nor-l. 

PLOT 201+xl/nor+40*btl.ll+INT(yl-10)/no 
r+40*bt2- 
RETURN. 

PROCEDURE choix couleur» 

COLOR 0- 

BOX (c+(16*(c>15)))*12,cl,(c+(16*(c>15) 
)>*12+12,c2* 
c=POINT(x,y)■ 

IF c<16- 
cl=219. 
c2=231 ■ 

ELSE- 
cl=231- 
c2=243 ■ 

ENDIF- 
COLOR 1. 

BOX (c+(16*(c>15)))*12,cl,(c+(16*(c>15) 
)}* 12+12.c2- 
FOR q=0 TO 2- 

@aff_palette(q)■ 

NEXT q- 
RETURN. 

PROCEDURE quel_boite- 
IF x<240■ 
btsl=0- 

ELSE IF x<280» 
btsl=l - 
ELSE- 
btsl=2« 

ENDIF■ 

IF y<50« 
bts2=0. 

ELSE IF y<90. 
bts2=l« 

ELSE IF y<130« 
bts2=2- 

ELSE IF y<170« 
bts2=3« 

ELSE- 

bts2=4« 

ENDIF■ 

COLOR 2- 

BOX 200+(btl*40),10+(bt2*40),216+(di-l) 
*8+(btl*40)+l,26+(bt2*40)+(di-l)*8+l. 
COLOR 3- 

BOX 200+(btsl*40),10+(bts2*40),216+(di- 
l)*8+(btsl*40)+l,26+(bts2*40)+(di-l)*8+l 

btl=btsl« 

bt2=bts2. 

RETURN- 

PROCEDURE restit- 
COLOR 3.0- 
TEXT 276,221,"WAIT". 

FOR n=0 TO n2-l. 
nl=n+201+(40*btl). 
nS^^nor- 
FOR m=0 TO n2-l» 

cp=POINT(ni,m+11+(40*bt2))- 
COLOR cp. 

PBOX n3+l,(m*nor)+ll.<n3+nor)-1,(m* 
nor+nor)+9. 

NEXT m- 


NEXT n- 

TEXT 276,221," 

RETURN. 

PROCEDURE quel menu- 
ON MENU(0) G03UB save,load,save_an,load 
_an,pale,quit,rien,rien,move,swap,copy,i 
nverh,inverv,clear,rien,rien,ansel,ansta 
rt,rien,rien,diml,dim2,dim3,restore_co« 
RETURN. 

PROCEDURE quit- 
fini=l■ 

RETURN- 

PROCEDURE move- 
COLOR 3,0- 

TEXT 276,221,"PICK". 

@get« 

cl$=im$. 

im$=cl$- 

test=0. 

k=0- 

REPEAT. 

WÏÏILE kol. 

MOÜSE x.y.k- 
WEND. 

IF x>200 AND y>10 AND y<200- 
@put« 
im$=cl$* 

@quel boite. 
test=T« 

ENDIF- 

UNTIL test=l- 
@put- 
@relache- 
COLOR 3.0- 
TEXT 276,221," 

RETURN. 

PROCEDURE swap- 
COLOR 3,0. 

TEXT 276,221,"PICK"- 

@get- 

cl$=im$. 

test=0« 

k=0. 

REPEAT- 

WHILE kol- 
MOUSE x,y,k- 
WEND- 

IF x>200 AND y>10 AND y<200- 
bt11=bt1- 
bt22=bt2. 

@quel_boite- 

@get- 

SWAP btl.btll- 
SWAP bt2,bt22- 
@put- 

SWAP btl.btll- 
SWAP bt2,bt22- 
im$=cl$. 

@put - 
test=l« 

ENDIF. 

UNTIL test=l« 

©relâche- 
COLOR 3,0. 

TEXT 276,221," 

RETURN- 

PROCEDURE copy- 





ppuf»; 
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COLOR 3,0- 

TEXT 276,221,"PICK". 

@get« 

test=0« 

k-0. 

REPEAT. 

WHILE kol. 

MOUSE x.y.k- 
WEND- 

IF x>200 AND y>10 AND y<200- 
@quel_boite- 
@put- 
test=l« 

ENDIF- 

UNTIL test=l« 

©relâche* 

COLOR- 3,0- 
TEXT 276,221," 

RETURN- 

PROCEDURE clear. 

ALERT 0,"ATTENTION|cette case va etreld 
etruite",1,"CONTINUE|OUBLIE II ", a- 
IF a=l. 
im$=cl$. 

@put. 

@restit« 

ENDIF- 

RETURN- 

PROCEDURE inverh» 
n3=40*bt2+ll. 

FOR n=0 TO n2-l. 
nl=n+201+(40*btl). 

FOR m=0 TO (n2-l)/2- 
cpl=POINT(nl,m+n3)- 
cp2=POINT(nl,n3+n2-m-l). 

COLOR cpl■ 

PLOT ni,n3+n2-m-l■ 

COLOR cp2« 

PLOT nl,m+n3. 


@restit- 
COLOR c. 

RETURN. 

PROCEDURE inverv* 
n3=40*bt2+ll. 

FOR n=0 TO (n2-l)/2. 
nl=n+201+(40*btl). 

FOR ra=0 TO n2-l- 

cpl=POINT(n2+200+(40*btl)-n,m+n3). 
cp2=POINT(ni,m+n3). 

COLOR cpl- 
PLOT nl,m+n3« 

COLOR cp2« 

PLOT n2+200+(40*btl)-n,m+n3- 
NEXT m. 

NEXT n- 
@restit- 
COLOR c- 
RETURN. 

PROCEDURE ansel- 
'ja=0. 
btllsbtl. 
btl2=bt2« 

WHILE MOUSEK<>2. 

MOUSE x.y.k- 


IF k=l■ 

IF x>200 AND y>10 AND y<200 AND 3a< 

20 - 

@quel_boite« 

@get« 

an$(ja)=im$« 

INC ja. 

@relache« 

COLOR 3,0. 

TEXT 285,221,STR$(ja). 

ENDIF. 

ENDIF. 

WEND. 

TEXT 285,221," "■ 

COLOR 2- 

BOX 200+(btl*40).10+(bt2*40),216+(di-l) 
*8+(btl*40)+l,26+(bt2*40)+(di-l)*8+l. 
COLOR 3- 
btl=btll. 
bt2=btl2■ 

BOX 200+(btl*40),10+(bt2*40),216+(di-l) 
*8+(btl*40)+l,26+(bt2*40)+(di-l)*8+l« 
RETURN- 

PROCEDURE anstart- 
IF ja<>0. 

GET 76.76.116,116,a$- 
@box(3,76,76.109,109). 

WHILE MOUSEKol. 

FOR n=0 TO ja-1- 

FOR tt=0 TO MOUSEX*10. 

NEXT tt- 

PUT 77,77,an$(n)- 
NEXT n- 
WEND- 

PUT 7 6,7 6,a$- 
ENDIF- 
RETURN- 

PROCEDURE get- 

GET 201+(btl*40),ll+(bt2*40),216+(di-l) 
*8+(btl*40),26+(bt2*40)+(di-l)*8,im$. 
RETURN. 

PROCEDURE put- 

PUT 201+(btl*40) , ll+(bt2 I * : 40) ,im$- 
RETURN- 

PROCEDURE relâche- 
WHILE MOUSEK. 

WEND- 

FOR j=0 TO 500. 

NEXT j. 

WHILE MOUSEK- 
WEND- 
RETURN. 

PROCEDURE dirai. 

IF diol - 
dil=l. 

©initl- 

ENDIF- 

RETURN. 

PROCEDURE dim2- 
IF di<>2- 
dil=2. 

@initl- 
ENDIF- 
RETURN. 

PROCEDURE dim3- 
IF di<>3- 
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dil=3* 

@initl* 

ENDIF* 

RETURN* 

PROCEDURE restore_co* 

RESTORE palette* 

FOR n=0 TO 31* 

FOR m=0 TO 2* 

READ co(n,m)* 

NEXT m* 

SETCOLOR n 1 co(n,0),co(n,l),co(n,2)* 
NEXT n* 

FOR q=0 TO 2* 

@aff palette(q)- 
NEXT q* 

RETURN* 

PROCEDURE aff palette(q). 

SELECT q* 

CASE 0* 

@box(3,200,213,247,221)* 

CASE 1* 

@box(3,200,228,247,236)* 

CASE 2* 

@box(3,200,243,247,251)* 

ENDSELECT* 

COLOR 3* 

IF co(c,q). 

PBOX 201,214+15*q,201+3*co(c,q),214+1 
5*q+6* 

ENDIF* 

COLOR c- 
RETURN* 

PROCEDURE choix palette* 
xl=FIX((x-201)73)* 
yl=y-214* 

IF yl>=0 AND yl<8* 

IF co(c,0)<>xl* 
co(c,0)=xl« 

@aff_palette(0)* 

ENDIF* 

ELSE IF yl>=15 AND yl<23* 

IF co(c, l)oxl* 
co(c,l)=xl* 

@aff palette(1)* 

ENDIF* 

ELSE IF yl>=30 AND yl<38* 

IF co(c, 2)oxl* 
co(c,2)=xl* 

@aff palette(2). 

ENDIF-* 

ENDIF. 

SETCOLOR c,co(c,0),co(c,1),co(c,2)« 
RETURN. 

PROCEDURE save* 

@get* 

FILESELECT "SAUVE CASE","SAUVER","DF0:" 
,nom$* 

IF nom$o""* 
a=LEN(im$). 

OPEN "O",#l,nom$* 

PRINT #1,"ANIMATE"* 

PRINT #1,a* 

PRINT #1,di* 

FOR n=l TO a* 

b=ASC(MID$(im$,n.1))* 

OUT #1,b* 


NEXT n* 

CLOSE #1* 

ENDIF* 

RETURN* 

PROCEDURE load* 

FILESELECT "LOAD CASE","CHARGER","DF0:" 
,nom$- 

IF nom$o""■ 

OPEN "I".#1,nom$* 

INPUT #1,sor$- 
IF sor$="ANIMATE 
INPUT #1,a* 

INPUT #1,dil* 

IF dil=<di* 
im$=""■ 

FOR n=l TO a* 
b=INP(#l)* 
im$=im$+CHR$(b)■ 

NEXT n* 

ELSE* 

ALERT 0,"CETTE CASE|A ETE SAUVEGA 
RDEE|SOUS UN FORMAT I SUPERIEUR",1," OK ”, 

a* 

ENDIF. 

ENDIF- 
CLOSE- 
@put« 

ENDIF* 

RETURN* 

PROCEDURE load an* 

FILESELECT "LOAD ANIMATION" , "CHARGER 1 ', " 
DF0:",nom$* 

IF nom$o" " AND RIGHT$(nom$, 1 ) = "1 " * 
nom$=MID$(nom$,1,LEN(nom$)-1)■ 
btsl=btl« 
bts2=bt2* 

FOR btl=0 TO 2* 

FOR bt2=0 TO 4* 

IF EXIST(nom$+STR$(bt2+(5*btl)+l) 

)* 

OPEN "I",#1,nom$+STR$(bt2+(5*bt 

D+l). 

INPUT #1,sor$* 

IF sor$="ANIMATE". 

INPUT #1,a* 

INPUT #1,dil* 

IF dil=<di* 
im$=""* 

FOR n=l TO a- 
b=INP(#l)* 
im$=im$+CHR$(b)* 

NEXT n* 

ELSE. 

ALERT 0,"CETTE CASE|A ETE S 
ATJVEGARDEE | SOUS UN FORMAT | SUPERIEUR" , 1, " 
OK ",a* 

ENDIF* 

ENDIF. 

CLOSE. 

@put* 

ENDIF* 

NEXT bt2- 
NEXT btl* 

IF pal=l* 

IF EXIST(nom$+".PALETTE")• 

OPEN "I",#l,nom$+ B .PALETTE”. 
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FOR n=0 TO 31- 

INPUT #1,co(n,0):co(n,1);co(n,2 

)■ 

SETCOLOR n,co(n,0),co(n,l),co(n 

. 2 ). 

NEXT n- 
CLOSE #1- 
ENDIF- 
ENDIF- 
btl=btsl« 
bt2=bts2« 

@restit- 
ENDIF- 
RETDRN- 

PROCEDURE save_an. 

IF ja<>0. 

FILESELECT "SAVE ANIMATION","SAUVER”, 
"DF0:",nora$« 

IF nom$<>""- 

IF RIGHT$(nom$,1>="1”■ 

norn$=MID$ ( nom$, 1, LEN ( nom$ ) -1 ) « 
ENDIF- . 

FOR m=0 TO ja-i- 
a=LEN(an$(m))■ 

OPEN "O",#1,nom$+STR$(m+l)■ 

PRINT #1,"ANIMATE". 

PRINT #1,a. 


PRINT #l,di. 

FOR n=l TO a- 

b=ASC(MID$(an$(m) ,n,l)). 

OUT #l,b. 

NEXT n- 
CLOSE #1. 

NEXT m- 
IF pal=l- 

OPEN "O",#1,nom$+”.PALETTE"- 
FOR n=0 TO 31- 

WRITE#1,co(n,0),co(n.l),co(n,2> 

NEXT n- 
CLOSE #1- 
ENDIF. 

ENDIF- 

ENDIF. 

RETURN- 

PROCEDURE pale- 
pal=pal XOR 1- 
IF pal=l« 

valm%=valm% OR &H151* 

ELSE IF pal=0. 

valm%=valm% AND &HFE- 
ENDIF- 

MENU (5),valm%- 
RETURN. 


' . indique 1'endroit où 
' vous devez frappër Return. 

RESERVE 10000. 

DEFWRD "a,z"■ 

@init« 

@load_an« 

@animation_start « 

CLOSES 1- 
EDIT- 

PROCEDURE init- 
DIM an$(20)- 

OPENS 1,0,0,320,256,5,0- 
OPENW 1,0,0,320,256,0,0,1. 

CLEARW 1. 

TITLEW #1,"". 

RETURN. 

PROCEDURE animation_start. 

IF ja<>0. 

WHILE MOUSEK=0- 
FOR n=0 TO ja-1- 

FOR tt=0 TO MOUSEX*5 !--->VARIATI 
ON DE LA VITESSE AVEC LA SOURIS- 
NEXT tt- 

PUT 77,77,an$(n)■ 

NEXT n- 
WEND- 
CLEARW 1. 

ENDIF- 

RETURN. 

PROCEDURE load an- 

FILESELECT "LOAD ANIMATION","CHARGER"." 
DF0:",notn$- 

IF nom$<>"" AND RIGHT$(nom$,1)="1" I RE 
'NTRE LE NOM DE LA 1 er IMAGE- 

nom$=MID$(nom$,1,LEN(nom$ >-1) I LE 

PROGRAME CHARGERA LE RESTÉ- 
FOR m=0 TO 14- 

IF EXIST(nom$+STR$(ni+l ) ). 


OPEN "I",#l,n«n$+STR$<m+l). 

INPUT #1,sor$ ! 

ICATION SI BON FICHIER. 

IF sor$="ANIMATE" I 
EMIER CODE EST "ANIMATE"- 
INPUT #1,a ! 

EUR DU FICHIER- 

INPUT #1,dil ! 

POUR LE FORMAT D'IMAGE- 

16*16- 

24*24- 

32*32- 

FOR n=l TO a | 

EMENT DE L'IMAGE- 

b=INP(#l)■ 
an$(ja)=an$(ja)+CHR$(b)- 
NEXT n- 

ja=ja+1 ! >NOMBRE 

D'IMAGES- 

ENDIF- 
CLOSE #1- 
ENDIF- 
NEXT m- 

IF EXIST(nom$+".PALETTE") ! ---> VER 
IFICATION POUR SAVOIR SI LA PALETTE- 

OPEN "I",#l,nom$+".PALETTE" I ES 
T PRESENTE SUR LA DISQUETTE- 
FOR n=0 TO 31- 

INPUT #1,cl,c2,c3- 
SETCOLOR n,cl,c2,c3- 
NEXT n- 
CLOSE #1- 
ENDIF. 

ENDIF. 

RETURN- 


--> VERIF 
--> LE PR 
--> LONGU 
--> TEST 
1 = 
2 = 
3= 

--> CHARG 


57 










PC 


BIDOUILLE 


UNE MANETTE DES GAZ 


Plein gaz! 

SUR 


Dingues des simulateurs de vol 
et mordus de jeux vidéos, ce montage est 
fait pour vous. Modique (60 F environ) et 
facile à réaliser, il permet le contrôle aisé 
de l'engin que vous pilotez. Condition 
sine qua non: que le jeu prenne en compte 
ce périphérique supplémentaire. 


L e principe du montage est 
simple: Une carte Joystick 
possède quatre ports. 
Deux sont utilisés dans un 
joystick classique (coord. X et 
Y), et donc ... deux sont inutili¬ 
sés! Deux? non, un est réservé 
par certains jeux pour eontrô- 
lèr la vitesse. Lesquels? Ceux 
compatibles Maxx™ (un 
manche à balai superbe ... mais 
cher et qui possède un contrôle 
des gaz) soit, entre autres, 
Flight Simulator III™, Chuck 
Yeager's advanced flight 
traîner™, Silent Service™, etc. 

La Carte Joystick 

Pour brancher une manette de 
jeux, il faut utiliser une carte 
adaptateur, laquelle autorise 
quatre entrées analogiques 
(c'est-à-dire peuvant prendre 
des valeurs de 0 à n) et deux 
entrées de type «tout ou rien». 
En théorie, cette carte est pré¬ 
vue pour deux joysticks, cha¬ 
cun devant donc utiliser deux 
entrées analogiques, ainsi 
qu'un entrée numérique. En 
fait, un joystick utilise deux 
boutons de mise à feu et occu¬ 
pe de ce fait les deux entrées 
«tout ou rien». Le principe de 
mesure des entrées analo¬ 
giques est le suivant: aux 
bornes de chacune d’elles se 
trouve un potentiomètre (résis¬ 
tance variable). Suivant la 
position de ce dernier, la résis¬ 
tance varie et est évaluée par 
une temporisation plus ou 
moins longue mesurée à tout 
instant par le jeu. 


Principe 

Il suffit d'intercaler un poten¬ 
tiomètre entre les bornes de la 
troisième entrée analogique et 
le tour est joué! Mais voyons 
d'abord les différentes cartes 
Joystick. En fait, deux types de 
cartes: les cartes un port et les 
cartes deux ports qui permet¬ 
tent le branchement d’un 
second joystick. 

Il est beaucoup plus facile 
d’exécuter le montage sur un 
carte deiix ports. En effet, le 
premier étant pris par le joys¬ 
tick, le montage se fera sur le 
deuxième, ce qui est plus 
simple à réaliser. 

Si l'on regarde le premier sché¬ 
ma (Carte joystick 1 port), on 
peut noter qu’il y a une rangée 
de broches réservée pour le 
joystick 1 et une autre pour le 
joystick 2. Oui, mais si l'on 
peut brancher un joystick 
(semblable aux autres) sur le 
second port, c’est que le bro¬ 
chage est inversé (d'où le 
second schéma) 


Réalisation 

Sans danger pour l'ordina- 
teur,.e\ie ne pose aucun pro¬ 
blème pour quiconque n’est 
pas trop maladroit. Toutefois, 
il est conseillé d'utiliser un fer 
à souder de faible puissance 
(inférieure à 50 W) et de la 
soudure électronique à 60%. 
D'abord, il faut souder les 
deux brins (fils) du câbie sur 
les broches 1 et 6 de la prisé 
dbl5. Inutile de compter, les 
broches sont numérotées. Si 
possible, utiliser un étau pour 
fixer le connecteur. Sinon, 
faites tenir la prise par un 
copain obligeant armé d’une 
paire de pinces isolantes (gaffe 
aux brûlures!). 

A l’autre extrémité du câble 
«scotchez» les brins sur deux 
pattes côte à côte du potentio¬ 
mètre. Branchez et essayez 
(sur un jeu qui accepte). Ca 
marche? Alors soudez le 
potentiomètre. Dans le cas 
contraire, vérifiez le montageet 
assurez-vous que la manette 
est au zéro (Sinon, Chuck 
Yeager, par exemple, ne la 
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reconnaîtra pas). De toute 
façon, ÇA DOIT MARCHER!!! 
Il ne reste plus qu’à loger votre 
manette dans un boîtier (ou la 
fixer au clavier), puis jouer, 
enfin. 

Facile non? Hélas, trop peu de 
jeux exploitent cètte possibili¬ 
té. Imaginez une bourre sûr 
Falcon™ avec ce genre d'en¬ 
gin... A vous les manœuvres 
Top Gun ... Quand Spectrum 
Holobyte daignera le prévoir! 

De plus, il reste le quatrième 
port; il n'existe pas dé norme 
établie, mais Flight Simulator (3 
et 4) utilise ledit port pour le 
palonnier (les pédales qui doi¬ 
vent être conjuguées avec le 
manche).... Fanas de réalisme 
et bidouilleurs de tous poils, 
vous savez ce qu'il vous reste à 
faire. 

Jean-François Six 


Liste du matériel 

• lm 50 de câble deux brins. 

• 1 potentiomètre droit linéai¬ 
re variant de 0 à 100 kilo- 
ohms (k£2). 

• 1 connecteur mâle DB15 (15 
broches). 

Accessoirement : 

• 1 capot pour DB15 

• 1 bottier pour le potentio¬ 
mètre. 
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BIDOUILLE 


Carte joystick 1 port 



Carte Joy. 2 ports : 2nd port 



Montage du potentiomètre 

(Vue de dessous) 
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MAD DAV 


Excellent exutoire! Rouler à fond la 
caisse aux commandes d'un bolide, en 
canardant tout ce qui roule... 


P rogrammé en Turbo 
Pascal (4 ou ’5), ce jeu, 
tournant eh mode gra¬ 
phique CGA minimum, néces¬ 
site dans le même répertoire 
les fichiers CGA.BGI, 
GOTH.CHR, LITT.CHR et 
GRAPH.TPU. 

Il se joue au joystick (ne choisir 
cette option qu'en possession 
de la carte sous peine de plan¬ 
tage), à la souris ou avec les 
chiffres. Les indications néces¬ 
saires sont incluses. 


On ne peut heurter plus de 10 
fois le bord de la route. Les 
forces de 1 à 4 offrent respecti¬ 
vement un bonus de 10 à 25 
points. La touche ESC, comme 
à son habitude, permet de sor¬ 
tir. 

David Farenzena 



’ ■ indique 1‘endroit où 
' vous devez frapper Return. 

{******** MAD DAV *♦*♦*****}. 

{ ***** + * EN TP4 otJ 5 '********}. 

{* * * **FARENZENA DAVID******)■ 

PROGRAM MAD_DAV;. 

USES CRT.GRAPH.DOS;■ 

VAR- 

X,Y,XX.YY,XI,Y1,XX2,YY2,XX3,XX4.YY3,YY 
4.U.V.A.B.B1.B2 :INTEGER; - 

I,I2.J,K,L.M,J1,SC,SCI.KL,ELI.KL2.KL3. 
SCT.SCO,SCOR :INTEGER;- 

O,01,02,04,05,P,Q,R,S,T,Tl,LEN,DRI.MOD 
E,C0MPT,MUST :INTEGER; - 

TAILLE,TAILLE2,TAILLE3,TV1.TV2,TV3,TV4 
,FORCE :WORD :■ 

HEU,MIN.SEC,CEN,J0Y1,BO.SC2.SC3 
:W0RD;- 

CO,COI 

:ARCCOORDSTYPE; - 

ZA.ZE 

:BOOLEAN; - 

L ,T ,V ,R 



: STRING[3] 

MIN ,SEC .NOM,SCI ,KL 

:STRTNG[10];■ 

TOUCHE,JOY,F0RCE_ 

: CHAR ;■ 

PLACE,PLACE2.PLACE3,PF1.PF2,PF3.PF4 
: POINTER ; - 

SOURIS 

rREGISTERS;■ 

03 

: REAL ;■ 

SCORT:ARRAY[1..4 0] OF INTEGER; - 

— - }. 

PROCEDURE SOURfVAR Ml,M2,M3,M4:INTEGER); 

BEGIN- 

SOURIS.AX:=3;- 
SOURIS.BX:=M2; - 
INTR($33,SOURIS) 


Ml 

M2 

M3 

M4 

END 


= SOURIS.AX 
= SOURIS.BX 
= SOURIS.CX 
= SOURIS.DX 


PROCEDURE STICK(VAR X,Y,K1,K2: INTEGER); 
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BEGIN- 

INLINE- 

($BA/$01/$02/$EC/$A8/$03/$7 5/$FB/$B 
9/$2C/$01/$FA/$EE/$EC/$A8/$01/- 

$E0/$FB/$BB/$2C/$01/$2B/$D9/$C4/$BE 

/X/$26/$89/$lD/$2B/$DB/$A8/$10/- 

$7 5/$03/$83/$C3/$01/$C4/$BE/Kl/$26/ 
$89/$lD/$2B/$DB/$A8/$20/$75/$03/- 

$83/$C3/$01/$C4/$BE/K2/$26/$89/$lD/ 
$EC/$A8/$03/$75/$FB/$B9/$2C/$01/• 

$EE/$EC/$A8/$02/$E0/$FB/$FB/$BB/$2C 
/$01/$2B/$D9/$C4/$BE/Y/- 
$26/$89/$lD); - 
END; - 

..)- 

PROCEDURE CADRE;- 
VAR I ;INTEGER;■ 

BEGIN- 

GÛTOXY(1,1);WRITE(CHR(201)); * 

FOR I :=2 TO 79 DO- 
BEGIN. 

GOTOXY(1,1);WRITE(CHR(205)); - 
END; - 

GOTOXY(80,1);WRITE(CHR(187)); - 

FOR I :=2 TO 23 DO- 

BEGIN- 

GOTOXY(80,1);WRITE(CHR(186)); - 
END; - 

GOTOXY(80,24);WRITE(CHR(188)); * 

FOR I :=2 TO 79 DO- 
BEGIN- 

GOTOXY(1,24);WRITE(CHR(205)) ; - 
END; - 

GOTÔXŸ(1,24);WRITE(CHR(200)); « 

FOR I :=2 TO 23 DO- 
BEGIN■ 

GOTOXY(i,1);WRITE(CHR(186)); - 

END;- 

END; - 

{----}■ 

PROCEDURE ENTREE;- 
BEGIN- 

TEXTCOLOR(1); - 
CADRE;- 
TEXTCOLOR(4); - 

GOTOXY(36,1);WRITE(’MAD DAV');- 
GOTOXY(35,2);WRITE(’========='); - 

TEXTCOLOR(2); - 

GOTOXY(4,4);WRITE('VOUS ETES L''AIGLE D 
E LA ROUTE DETERMINE A ROULER LE PLUS VI 
TE') : - 

GOTOXY(4,5);WRITE('POSSIBLE ET A PARCOU 
RIR LE PLUS GRAND NOMBRE DE KILOMETRES.' 
);• 

GOTOXY(4,6);WRITE('POUR CELA VOUS ETES 
PRET A DETRUIRE TOUT ENNEMI VENANT EN SE 
NS INVERSE 

GOTOXY(4,7);WRITE('ATTENTION : PAS PLUS 
DE DIX SORTIES DE ROUTE.'); - 
GOTOXY(4,8);WRITE('LES ENNEMIS VIENNENT 
DE PLUS EN PLUS VITE. '); - 
GOTOXY(4,9);WRITE(’POUR LES TUER,VOUS D 
EVEZ LES PULVERISER AU RADIANT.'); - 
GOTOXY(4,16);WRITE('(ESC)POUR SORTIR.') 

'TEXTCOLOR(5); - 


GOTOXY(4,11);WRITE('AVEC UN JOYSTICK OU 
A LA SOURIS :(UN DES BOUTONS) POUR TIRE 
R. ');■ 

GOTOXY(4,12);WRITE( * (LA MANETTE OU MA S 
OURIS VERS SOI) POUR FREINER.'); - 
GOTOXY(4,13):WRITE(’AVEC LES CHIFFRES :( 
7 OU 9) POUR TIRER.(8) POUR AVANCER.(2) 
POUR FREINER.'); - 

GOTOXY(4,14); WRITE('(6) A DROITE.(4) A 
GAUCHE.(5) RETOUR AU MILIEU.'); - 
TEXTCOLOR(3);■ 

GOTOXY(16.17);WRITE('VOTRE FORCE (1/4): 
');■ 

READLN(FORCE );- 
CASE FORCE_ QF- 
'1':FORCE:=25;■ 

'2':FORCE:=20 ;■ 

'3' : FORCE :=15 ;■ 

'4': FORCE:=10 ; - 

ELSE BEGIN FORCE_: = '4'; FORCE :=10 ; END ; - 
END; ■ 

GOTOXY(30,17);WRITE(' ');■ 

GOTOXY(16,17);WRITE('VOTRE PRENOM : 

');- 

READLN(NOM); - 
GOTOXY(16,17);WRITE(' 

');■ 

LEN:=(LENGTH(NOM)) DIV 2;- 

GOTOXY(30-LEN,17);WRITE('CHER(E) ’.NOM, 

' AVEZ VOUS ');- 

GOTOXY(30-LEN,18);WRITE('UN JOYSTICK 
:( 1 ) ' ) ; ■ 

GOTOXY(30-LEN,19);WRITE('UNE SOURIS 
:( 2 )'); - 

GOTOXY(30-LEN,20);WRITE('LES CHIFFRES 
:(3)'); - 
TÈXTC0L0R(4): - 

GOTOXY(30-LEN, 21 ) ;WRITE( ’--- 

-'):■ 

GOTOXY(30-LEN,22); WRITE('VOTRE REPONSE 
: ');■ 

READLN(JOY); - 
CASE JOY OF- 
■1’:JOY1: =1 ; ■ 

'2':JOY1:=2; - 
'3' :JOY1:=3 ;• 

ELSE JOY1: =3 ; « 

END;- 

TEXTCOLOR(6);■ 

GOTOXY(29-LEN,24); WRITE(NOM,’ FRAPPEZ 
(ENTER) ');- 
READLN; - 
END; - 

{------->- 

PROCEDURE SORTIE;- 
VAR J: STRING ; I,CRA:INTEGER; - 
BEGIN- 
INC(COMPT); - 
CASE FORCE_ OF- 


■1' 

CRA: 

=10; 

'2' 

CRA: 

=15; 

•3' 

CRA: 

=20; 

'4' 

CRA: 

=25; 

END 

■ 


SCO 

= (SC 

*10) 


SCOR:=KL+(CRA-SCT); - 
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SCORT[COMPT]:=SCOR;. 

{♦♦♦SYSTEME DE TRI***}. 

FOR I :=1 TO COMPT DO- 
BEGIN. 

IF SCORT[I]>SCORT[COMPT] THEN MDST: 
ORT[I]; - 
END; ■ 

IF MUST<SCOR THEN MaST:=SCOR;. 

CASE J0Y1 OF- 

1 :J: = ’UN JOYSTICK' 

2 :J : = ’UNE SOURIS’;. 

3 :J: = 'LES FLECHES’;. 

END; . 

CLRSCR;• 
ram?TT. _ 

GOTOXY( 17.-LEN, 4 ) ; ■ 

WRITEC’FORCE= ’.FORCE 
DE ’.CRA,’ POINTS.’);.“ 

GOTOXY(17-LEN.6);. 

WRITEC'MEILLEUR SCORE=’.MUST,’ 

);- 

GOTOXY(17-LEN,8);- 

WRITE('VOTRE SCORE=',SCOR.’ POINTS. 
);■ 


SOIT UN BONUS 


POINTS.’ 


TEXTCOLOR(2);• 

GOTOXY(36.1);WRITE('MAD DAV');- 
GOTOXY(35,2); WRITE('=========’);. 

GOTOXY(17-LEN.10); - 

WRITE(’CHER(E) ',NOM,' VOUS AVEZ PARCOU 
RU '.KL.’ KILOMETRES ’.SCO,' METRES’);. 
GOTOXY(17-LEN,12);■ 

WRITE('EN COGNANT '.SCT,’ FOIS LA ROUTE 
,VOUS AVEZ TUE ',KL.' ENNEMIS.');. 

GOTOXY(17-LEN,14); - 

WRITECET TOUT CELA AVEC ’ , J, ’ SALUT AI 
GLE DE LA ROUTE.'); - 
TEXTCOLOR(4); « 

GOTOXY(30-LEN,23);WRITE('UNE AUTRE ’.NO 
M.' (O/N) :');- 
READLN(TOUCHE); - 
END; ■ 


PROCEDURE DESSIN MOB;. 

BEGIN. 

{---DESSINS DES MOBILES---). 

{ ENNEMI 1-} ■ 

SETFILLSTYLE(1.2); - 
SETCOLOR(2); - 

RECTANGLE(158.30.162.36);RECTANGLE(159. 
31.161.33);- 
SETCOLOR(3);. 

RECTANGLE(155,33.157.37);RECTANGLE(163, 
33,165,37);. 

SETCOLOR( 1 );PUTPIXEL(159,35.1);PUTPIXEL 
(161.35.1);. 

PUTPIXEL(157.32.1);PUTPIXEL(163,32.1); - 
TV1:=IMAGESIZE(155,30,165,37);- 
GETMEM(PF1.TV1);. 

GETIMAGE(155,30,165.37,PF1" );■ 

PUTIMAGE(155,30.PF1",1); - 

{-ENNEMI 2-} - 

SETCOLOR(2);■ 

RECTANGLE(154,40,166,58);RECTANGLE(157, 
43,163.49);. 

FLOODFILL(160,53,2);. 

SETCOLOR(3);. 


RECTANGLE(145,52,153,61);RECTANGLE(167, 
52,175,61) ;. 

SETCOLOR(1);CIRCLE(157.55.2);CIRCLE(163 
,55,2); - 

FILLELLIPSE( 1 51,46,2,2);FILLELLIPSE(169 
,46,2,2);. 

TV2:=IMAGESIZE(145,40,175,61);. 
GETMEM(PF2,TV2);. 
GETIMAGE(145,40,175,61.PF2") ;. 

PUTIMAGE(145,40,PF2",1); - 

{-ENNEMI3 - ) - 

SETCOLOR( 2 ) ; « 

RECTANGLE(142.50,178,104);RECTANGLE(151 
,59,169,75);■ 

FLOODFILL(160,86,2);. 

SETCOLOR(3);. 

RECTANGLE(115,86,141,113); RECTANGLE(179 
,86,205,113) ;. 

SETCOLOR(l);CIRCLE(151,95,6);CIRCLE(169 
.95.6);. 

FILLELLIPSE(133,68,6,6);FILLELLIPSE(187 
,68,6,6);. 

TV3:=IMAGESIZE(115,50,205,113);. 
GETMEM(PF3, TV3) 

GETIMAGE(115,50,205,113,PF3"); - 
PUTIMAGE(115,50,PF3",1);- 

{-ENNEMI4-) - 

SETCOLOR(2); - 

SETLINESTYLE(0,0,THICKWIDTH);. 

RECTANGLE(130,70,190,160);RECTANGLE(145 
,85,175,115); - 
FLOODFILL(160.130,2); - 
SETCOLOR(3); - 

RECTANGLE(85,130,128,175);RECTANGLE(192 
,130,235,175);- 

SETCOLOR(1);CIRCLE(145,145,9); - 
SETLINESTYLE(0,0,THICKWIDTH);CIRCLE(175 
.145,9); - 

FILLELLIPSE(115,100,9,9);FILLELLIPSE(20 
5,100,9,9);- 

TV4:=IMAGESIZE(84,69,236,176);■ 
GETMEM(PF4,TV4);■ 

GETIMAGE(84,69,236,176,PF4"); - 
PUTIMAGE(84,69 , PF4", 1 ) ; ■ 

{---VOLANT DROIT-)- 

SETCOLOR(l); - 
CIRCLE(160,195,55);* 

CIRCLE(160,195,60); - 
SETCOLOR(2);. 

SETLINESTYLE(0,0,THICKWIDTH); - 
LINE (160,195,130,160); - 
FILLELLIPSE(160,197,8,6);• 

TAILLE:=IMAGESIZE(100,140,225,199); - 
GETMEM(PLACE,TAILLE);. 

GETIMAGE(100,140,225,199.PLACE"); - 
PUTIMAGE(100,140.PLACE",1); - 
{---VOLANT GAUCHE---). 

SETCOLOR(1); - 
CIRCLE(160,195,55);. 

CIRCLE(160,195,60);. 

SETCOLOR(2);. 

SETLINESTYLE(0,0,THICKWIDTH);. 

LINE(160,195,190,160);. 

FILLELLIPSE(160,197,8,6); - 

TAILLE2:=IMAGESIZE(100,140,225,199);. 

GETMEM(PLACE2,TAILLE2);. 
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GETIMAGE(100,140,225,199 .PLACE2"') ; • 
PUTIMAGE(100,140.PLACE2M); - 
{---VOLANT CENTRE---}- 
SETCOLOR( 1 ) ; « 

CIRCLE(160,195,55):■ 

CIRCLE(160,195,60);. 

SETCOLOR(2); - 

SETLINESTYLEC 0,0,THICKWIDTH); - 
LINE (160,195,214,190);- 
LINE (160,195,106,190); - 
FILLELLIPSE( 160,197,8,6);. 

TAILLE3 :=IMAGESIZE(100,140,225,199);. 
GETMEM(PLACE3.TAILLE3); - 
GETIMAGE(100,140,225,199 .PLACE3'') ; ■ 
PUTIMAGE(100,140,PLACE3M) ; . 

END; - 

{--- - ->- 

PROCEDURE INITIALISATION;- 
BEGIN. 

X:=160;Y:=170;ZA:=TRUE; TOUCHE :=#0; I:=33 
0;K: =12 ;L:=11 ;L : = ' 1 ;U:=1;- 
A :=14;M:=0 ; B :=0 ;XX2:=140 ;YY2:=1 ;O :=0 ;P : 
=0;Q:=0;R:=1;T:=1;S:=1;. 

V :=0;DRI:=1;MODE:=2 ;J1:=0;X1:=180;Y1:=1 
; 01 :=0 ; SC :=0 ; SCI :=10 ;KL :=0 ;■ 

SCI ; = '10’; KL : = ’0';B0:=1 ;SC2:=0 ;SC3:=0 
; Tl : =1 ; KL1 : =0 ; EÜL2 : =0;KL3 : =0 ; - 
SCT:=0 ; 05 :=0 ; SCO:=0 ;SCOR:=0 ; - 
END; - 

{ —-- - ->- 

PROCEDURE TACHI;. 

BEGIN. 

IF ZA AND (I>20) THEN- 
BEGIN. 

DEC(1,5);. 

END; - 

IF (NOT ZA) AND (I<320) THEN INC (1,5); 


SOUND (410-1);DELAY(10);NOSOUND;. 
SETCOLOR(0);. 

LINE(C0.XEND,CO.YEND,CO.X.CO.Y); - 
END; ■ 

{ —---)• 

PROCEDURE DESSIN_ECRAN; - 
BEGIN- 

{--DESSIN DU TACHIMETRE--}. 

SETTEXTJUSTIFY(1.1);- 
SETTEXTSTYLE(2,0.2) ; ■ 

SETC0L0R(3); * 

FOR M:=6 TO 8 DO CIRCLE (X.Y.A+M);- 
{---DESSIN VOITURE---}. 

SETCOLOR(2);■ 

SETFILLSTYLE(7,3);■ 

SETLINESTYLE(0,0,THICKWIDTH);. 

BAR(35,150,80,199);BAR(240,150,285,199) 

’RECTANGLE(35,150,80,200); RECTANGLE(240, 
150,285,200); - 

MOVETO(90,199);LINETO(90,175);LINET0(12 
0,150);MOVETO(200,150);■ 

LINETO(230,175);LINETO(230,199);ELLIPSE 
(160,150,0,180,39,9); - 
SETCOLOR(1); - 

SETLINESTYLE(0,0.THICKWIDTH); - 
LINE(1,199,319,199);. 

SETFILLSTYLE(l.l); - 


SETLINESTYLE(0,0,0);- 

BAR(83,190,87,195);BAR(233,190,237,195) 

'SETC0L0R(3);■ 

LINE(1,19,320,19);. 

{---DESSIN DES COMPTEURS---}- 
SETCOLOR(2 ) ; ■ 

SETFILLSTYLE(1,1);■ _ 

FILLELLIPSE(194,182,12,7);- 
OUTTEXTXY(194,182,SC1_); - 
OUTTEXTXY(194,170,'CRACH');■ 

FILLELLIPSE(126,182,12,7);. 

OUTTEXTXY(126,182,KL_); - 
OUTTEXTXY(126,170,'KILO'); - 
WHILE K<360 DO- 
BEGIN. 

SETCOLOR(0); - 
ARC(X,Y.K.K+l,A);• 

GETARCCOORDS(CO); - 

IF K>80 THEN SETCOLOR(l) ELSE SETCOLOR( 
2);- 

INC(K,30);■ 

STR(L,L );• 

OUTTEXTXY(CO.XEND,CO.YEND,L_); - 
DEC(L); - 
END; - 

ZE:=FALSE; - 
END; - 

{---PROCEDURES DE DESSIN DES VOLANTS---} 

PROCEDURE VOLANTC;• 

BEGIN. 

IF (B=3) THEN PUTIMAGE(100,140.PLACE",1 
) ; - 

IF (B=2) THEN PUTIMAGE(100,140,PLACE2~, 
1) ;■ 

PUTIMAGE( 100,140 .PLACE3 - ', 1 ) ; - 
B : =1 ; ■ 

END; - 

->■ 

PROCEDURE VOLANTD; « 

BEGIN- 

IF R<4 THEN INC(R) ELSE R:=1 ; - 

IF B=1 THEN PUTIMAGE(100,140.PLACES",1) 

PUTIMAGE( 100,140 .PLACE 1 ', 1) ; - 
B :=3 ; - 
END; - 

{-----— 

PROCEDURE VOLANTG;. 

BEGIN- 

IF R>1 THEN DEC(R) ELSE R:=4;. 

IF B=1 THEN PUTIMAGE(100.140,PLACE3'\1) 

PUTIMAGE(100,140 .PLACE2'', 1 ) ; - 
B : =2 ;■ 

END;- 

{------->■ 

PROCEDURE R0UTE1;■ 

BEGIN. 

SETCOLOR(1); - 
SETLINESTYLE(3,0,0);- 
LINE(1,165.XX2+0,20); - 
LINE(319,165,Xl+O,20); - 
END; - 

(-)- 















PROGRAMMATION 


PROCEDURE ROUTE0; - 
BEGIN. 

SETCOLOR(0); « 

LINE(1,165,XX2+0,20);■ 
LINE(319,165,X1+O,20);« 
END; ■ 


PROCEDURE FLECHES;. 

BEGIN. 

CASE TOUCHE OF- 

‘8’:BEGIN YY:=10;XX:=160;END;- 

' 2 ’ : BEGIN YY:=195 ; I :=320;END; - 


' 4' 

XX : = 5 ; - 

’6’ 

XX :=300 ; 

' 5’ 

XX:=160; 

END 


END 

■ 


PROCEDURE SOU ;. 

BEGIN- 

FOR J:=125 TÔ 565 DO- 
BEGIN- 

SOUND (J);DELAY(10); - 
END; - 
NOSOUND; ■ 

END; - 

{ -- ). 

PROCEDURE CHOC;. 

BEGIN- 

FOR J:=300 TO 500 DO BEGIN- 
SOUND (J);DELAY(5); END;NOSOUND; - 
SETCOLOR(0);. 

LINE(1,165.XX2+0,20); - 
LINE(319,165,Xl+O,20) ; ■ 

01:=0 ;0:=0 ;XX2:=130 ;XI :=190 ; » 

•DEC(SCl);. 

SETCOLOR( 2 )i■ 

STR(SCI,SCI );- 
SETFILLSTYLE(l.l); - 
FILLELLIPSE( 194,182,12,7)-,. 
OUTTEXTXYQ94,182 , SCI );. 

END; - 

(--}- 

PROCEDURE CHANGEPOS;• 

BEGIN- 
CASE B OF- 

2:BEGIN INC(0,6);END;« 

3 :BEGIN DEC(0,6);END;■ 

END; - 

IF (Xl+0>175) AND (B=l) THEN INC(0,4);- 
IF (XX2+0<145) AND (B=l) THEN DEC(0.4); 

INC(I2);. 

IF I2>100 THEN BEGIN- 
RANDOMIZE; - 
12 :=0 ; - 

01 :=RANDOM(3);■ 

Case 01 of« 

0 :01 :=—S ; - 
1:01:=0 ;■ 

2 :01 :=5 ;■ 

END; - 
END; • 

0 := 0+01 ;■ 

END; - 

(-)- 


PROCEDURE PERDU;. 

BEGIN- 

CLEARDEVICE;. 

SETCOLOR( 2 );. 

SETTEXTSTYLE(4,0,8);- 
RECTANGLEd .1,319,199);- 
SETCOLOR(1); - 

OUTTEXTXY(160.50,'FINI*);. 

SETCOLOR(3);■ 

SETTEXTSTYLE(4,0,5);- 
OÜTTEXTXY(160,130,NOM);■ 

SOUND(250);DELAY(1000);NOSOUND; SOUND(15 
0);DELAY(1000);NOSOUND;- 
SOUND(250);DELAY(1000);NOSOUND;SOUND(15 
0);DELAY(1000);NOSOUND;- 
SCI :=0 ; - 
END; . 


PROCEDURE ENNEMI ;. 

BEGIN. 

SETFILLSTYLE(0,0); - 
03 :=0/112 ; - 
CASE BO OF- 
1:04:=155+0;- 

2:O4:=ROUND(145+(83*03)); - 
3:04:=R0UND(115+(63*03));. 

4:04:=ROUND(85+(43*03)):■ 

END; . 

05 :=11 ; » 

CASE BO OF- 

1:PUTIMAGE(04,05,PF1 A . 1 ) : ■ 

2 : BEGIN BAR(02.11.02+15,18);05:=50:PUTÏ 
MAGE(04 ,05 ,PF2"', 1 ) ; END; ■ 

3 :BEGIN BAR(02,50,02+35 * 71); 05 :=70 ;PÜTÎ 
MAGE(04,05,PF3~,1);END; « 

4 : BEGIN BAR(02,70,02+95,133)iÔ5:=90;PUT 
IMAGE(04,05 * PF4 ~,1);S0U|- 

SCI:=0;PUTIMAGE(04,05,PP4~,1):ËND;. 

END; - 
02 :=04 ; - 
END; - 

(-)■ 

PROCEDURE ENNEMI1 ;. 

BEGIN. 

SET FILLSTYLE(0,0);- 
CASE BO OF- 

1:BAR(02,3,02+15,18) ; - 
2:BAR(02,43,02+35,71);- 
3:BAR(02,64,02+95,133);■ 

END; ■ 

TOUCHE :=#0;■ 

END; ■ 

. * —- -}. 

PROCEDURE TIR;- 
VAR 06,07:INTEGËR;■ 

BEGIN- 
R0UTE1; - 
SETCOLOR(3); - 

LINE(135,141,155+0,21);LINE(185,141,165 
+ 0 , 21 ); - 
CASE 05 OF- 

11 : BEGIN 06 :=04+5:07:=05-4;END;. 

50 : BEGIN 06 :=04+15;07:=05-4;END;- 
70 : BEGIN 06 :=04+45;07:=05-4 ; END ; - 
END;. 

IF SC2=1 THEN BEGIN SETCOLORd ) ;OUTTEXT 
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XY(06,07,'PAF’);END;- 
FOR J:=600 TO 700 DO BEGIN- 
SOUND!J);DELA Y( 5 ) ; ■ 

END; ■ 

NOSOUND;- 

IF (SC2=1) THEN BEGIN I:=320;SC2:=0;ENN 
EMU;END; - 
SETCOLOR(0);■ 

LINE(135,141,155+0,21);LINE(185,141,165 
+0,21);- 
TOUCHE :=#0;■ 

ËND ; ■ 

<------r-->■ 

PROCEDURE COMENNEMIS;- 
BEGIN- 

{---SYSTEME ACCELERATEUR DES ENNEMIS--- 

)■ 

INC(KLl);KL3:=F0RCE-KL;- 
IF KL3<2 THEN KL3:=2 ; - 
IF KL1>=KL3 THEN BEGIN KL1:=0 ;INC(T1); K 
L2:=1;END;- 
IF KL2=1 THEN BEGIN- 
CASE Tl QF- 

1:BEGIN BO:=1 ;ENNEMI ;END; « 

2:BEGIN BO:=2 ;ENNEMI ; END;- 

3:BEGIN BO:=3;ENNEMI;END; - 

4 : BEGIN BO:=4 ; ENNEMI ; END; - 

END; - 

KL2:=0 ; - 

END;- 

END; • 

{----->■ 

PROCEDURE MOTEUR;- 
BEGIN- 

CASE J0Y1 OF- 
1: STICK(XX,YY,B1,B2);■ 

2: S0UR(B1,B2,XX,YY); - 
END;- 

WHILE (TOUCHEo#27) AND (SC1>0) DO- 
BEGIN- 

TOUCHE :=UPCASE(READKEY); - 

WHILE (NOT KEYPRESSED) AND (SC1>0) DO- 

BEGIN- 

IF YY>190 THEN I :=320 ; - 
IF (Bl=l) OR (TOUCHE='7’) OR (B2=l) OR 
(TOUCHE='9') THEN TIR;- 
{---COMPTEUR KILOMETRIQUE---}- 
IF I<250 THEN INC(SC);- . 

IF SC=100- THEN- 
BEGIN- 

SETCOLOR( 2 ); - 
INC(KL);■ 

STR(KL,KL );- 
SETFILLSTYLE(l.l); - 
FILLELLIPSE(126,182,12,7);- 
OUTTEXTXYC126,182,KL_); - 
SC:=0 ;SC2:=1 ; Tl :=0 ; - 
END;« 

SCT:=10-SCI ;• 

R0UTE1; - 

{---CHOIX DES SYSTEMES---). 

CASE J0Y1 OF- 

1: STICK(XX,YY,B1,B2); - 

2: SOURCBl,B2,XX,YY); - 

3 : FLECHES ; - 

END;- 


{---POSITIONS DES VOLANTS---}- 
CASE J0Y1 OF- 

1 :BEGIN- 

IF (YY<20)THEN ZA:=TRUE ELSE ZA :=FALSE; 

IF (XX>180) AND (B=l) THEN VOLANTD:■ 

IF (XX<10) AND (B=l) THEN VOLANTG; - 
IF (XX>20) AND (XX<170) AND (Bol) THEN 
VOLANTC; END ; - 

2 : BEGIN- 

IF (YY<80)THEN ZA:=TRUE ELSE ZA;=FÀLSE; 

IF (XX>180) AND (B=l) THEN VOLANTD;- 
IF (XX<140) AND (B=l) THEN VOLANTG;- 
IF (XX>140) AND (XX<180) AND (Bol) THE 
N VOLANTC; END ;■ 

3:BEGIN- 

IF (YY<20)THEN ZA:=TRUE ELSE ZA:=FALSE; 

’lF (XX>290) AND (B=l) THEfrVOLANTD; - 
IF (XX<10) AND (B=l) THEN VOLANTG;- 
IF (XX>20) AND (XX<280) AND (Bol) THEN 
VOLANTC;END;- 
END;- 

{---DESSIN DU TACHIMETRE-}■ 

SETCOLOR(0); - 

ARC(X,Y,0,1,A-5); - 

GETARCCOORDS(CO); - 

SETCOLOR(1); - 

SETLINESTYLE(0,0,0);- 

LINE(CO.X,CO.Y,CO.XEND,CO.YEND); - 

TACHI; - 

IF (GETPIXEL(34,149)=1) OR (GETPIXEL(28 
5,149)=1) THEN CHOC;- 
ROÜTE0; - 

IF SC2=0 THEN CHANGEPOS; - 

IF (SC2=1) AND (I<250) THEN COMENNEMIS; 

END; - 
END;- 
END; - 

{-PROGRAMME PRINCIPAL-}« 

BEGIN- 
CLRSCR; - 
ENTREE ; - 

ZE:=TRUE;COMPT:=0 ;MUST:=0 ;■ 

FOR I :=1 TO 10 DO BEGIN SCORT[I]:=0 ; END 

’repeat- 

BEGIN- 

{---INITIALISATION DES VARIABLES---}- 
INITIALISATION;- 
{---INITIALISATION DU MODE---)- 
INITGRAPH(DRI.MODE, " ); - 
{---DESSIN DES MOBILES---)- 
IF ZE THEN DESSIN_MOB; - 
DESSIN_ECRAN; - 
MOTEUR;- 

IF SC1=0 THEN PERDU;- 
CLOSEGRAPH; - 
SORTIE ; - 
END; ■ 

UNTIL (TOUCHE=’N’) OR (TOUCHE= , n’);■ 
CLRSCR; - 

END.{---FIN DE PROGRAMME---)- 















